Лучший способ для файлов SFTP или FTPS через SSIS

Может быть полезен следующий вопрос:

Какой компонент SSIS рекомендуется выбрать для выполнения задачи SFTP или FTPS?

Козырок:

Должно быть легко проверить доступность протокола ssh, настроив сервер на «разрешать только SSHv2» и проведя тестирование. Вы пробовали спросить у отдела продаж Кози?

Командная строка sftp:

Проблема с неизвестным именем файла может быть решена простым скриптом / использованием подстановочных знаков (по крайней мере, в Cygwin).

Сторонняя библиотека:

Зачем вам нужна сторонняя библиотека для FTPS? .NET поддерживает этот протокол примерно с 2.0.

http://msdn.microsoft.com/en-us/library/system.net.ftpwebrequest.enablessl.aspx

Я просто хотел предоставить обновленную информацию о том, что мы на самом деле решили сделать для решения проблем с SFTP в SSIS. Вот разбивка того, что произошло:

1. Сначала я пробовал использовать Putty и некоторые командные файлы для загрузки файлов, но было сложно зафиксировать ошибки. Кроме того, я хранил наши учетные данные SFTP в текстовых файлах, поскольку они были частью сценариев загрузки Putty.

2. Мы приобрели лицензию CozyRoc для нашего сервера SSIS за пару сотен долларов в год, и я полностью доволен результатами использования их продукта. С продуктом CozyRoc задача потока управления вызывает ошибки, если есть какие-либо проблемы с загрузкой. Поскольку в моей команде также есть несколько младших программистов SSIS, им было легче понять, как настроить задачу потока управления, чем использовать метод сценариев Putty. И, наконец, пароль зашифрован с использованием собственного шифрования SSIS для защиты конфиденциальных данных. У меня больше нет паролей, хранящихся в открытом виде на моем сервере.

Я просмотрел некоторые другие сторонние библиотеки, которые были рекомендованы в этом вопросе, но, похоже, CozyRoc был самым дешевым из поставщиков, и у них также было несколько других задач SSIS, которые я смог использовать в моей команде BI. Спасибо, CozyRoc!

Без компонента вы можете использовать задачу скрипта. См. эта ссылка

Imports System
Imports Microsoft.SqlServer.Dts.Runtime
Imports Ftp
Imports System.IO

Public Class ScriptMain

    Public Sub Main()

        Try

            Dim cm As ConnectionManager = Dts.Connections.Add("FTP")
            cm.Properties("ServerName").SetValue(cm, Dts.Variables("SFTPServerName").Value.ToString)
            cm.Properties("ServerUserName").SetValue(cm, Dts.Variables("SFTPLogin").Value.ToString)
            cm.Properties("ServerPassword").SetValue(cm, Dts.Variables("SFTPPassword").Value.ToString)
            cm.Properties("ServerPort").SetValue(cm, Dts.Variables("SFTPPortNumber").Value.ToString)
            cm.Properties("Timeout").SetValue(cm, "0")
            cm.Properties("ChunkSize").SetValue(cm, "0") '1000 kb
            cm.Properties("Retries").SetValue(cm, "0")
            Dts.Variables("Continue").Value = 0

            Dim ftp As FtpClientConnection = New FtpClientConnection(cm.AcquireConnection(Nothing))
            Dim FilesList() As String
            Dim FolderName() As String

            Dim Separator As String = ";"
' \\ServerName\Share1;\\ServerName\Share2 : Local copy
            Dim FolderLocalListSrc As String = Dts.Variables("FolderLocalListSrc").Value.ToString
            Dim FolderLocalListDst() As String = Split(FolderLocalListSrc, Separator)
            Dim Counter As Integer

            ftp.Connect()
            ftp.GetListing(FolderName, FilesList)

            If FilesList IsNot Nothing Then

                Dim FileName As String

                For Each FileName In FilesList

                    Dim FileToProcess(0) As String
                    Dim FileToMove(0) As String

                    For Counter = 0 To FolderLocalListDst.GetUpperBound(0)

                        FileToProcess(0) = FileName
                        FileToMove(0) = FolderLocalListDst(Counter) + FileName

                        If (File.Exists(FileToMove(0)) = False) Then

                            ' Téléchargement en local
                            ftp.ReceiveFiles(FileToProcess, FolderLocalListDst(Counter), True, True)

                        End If

                    Next

                    ' Upload du fichier dans les archives du FTP
                    ftp.SendFiles(FileToMove, "/Archives", True, False)

                    ' Suppression du fichier à la racine du FTP
                    ftp.DeleteFiles(FileToProcess)

                Next

            End If

            ftp.Close()

            Dts.TaskResult = Dts.Results.Success
        Catch ex As Exception
            Dts.TaskResult = Dts.Results.Failure
        End Try

    End Sub

End Class