WHY? Would you use VB for FTP in SSIS?

Question

Could someone explain what is going on here, this is from the Get List of files Script Task
Public Sub Main()
        Dim saAllFileNames As Collection = New Collection()
        Dim b2222Success As Boolean
        Dim b111Success As Boolean
        ' Get 2222 files
        b2222Success = GetFileList(Dts.Connections("Company FTP"), CStr(Dts.Variables("2222_Path").Value), saAllFileNames)
        ' Get 111 files
        b111Success = GetFileList(Dts.Connections("Company FTP"), CStr(Dts.Variables("111_Path").Value), saAllFileNames)
        Dts.Variables("FTPFileList").Value = CObj(saAllFileNames)
        If b2222Success AndAlso b111Success Then
            Dts.TaskResult = ScriptResults.Success
        Else
            Dts.TaskResult = ScriptResults.Failure
        End If
    End Sub
    Protected Function GetFileList(ByRef conn As ConnectionManager, ByVal sPath As String, ByRef saAllFileNames As Collection) As Boolean
        Dim saFolderNames As String() = Nothing
        Dim saFileNames As String() = Nothing
        Dim ftp As FtpClientConnection = New FtpClientConnection(conn.AcquireConnection(Nothing))
        Dim bSuccess As Boolean
        Try
            If ftp.Connect() Then
                ftp.SetWorkingDirectory(sPath)
                ftp.GetListing(saFolderNames, saFileNames)
                If Not saFileNames Is Nothing Then
                    For Each sCurFileName As String In saFileNames
                        saAllFileNames.Add(sPath & sCurFileName)
                    Next
                End If
                Dts.Variables("FTPFileList").Value = CObj(saAllFileNames)
            End If
            bSuccess = True
        Catch ex As Exception
            bSuccess = False
            Call Dts.Events.FireError(0, String.Empty, ex.Message, String.Empty, 0)
        Finally
            ftp.Close()
        End Try
        Return bSuccess
    End Function
End Class

Answer 1

It gets a list of filesnames and puts them in an object variable. There is probably an foreach loop container with an ADO.NET enumerator after the script task to loop through all files...
Please mark the post as answered if it answers your question | My SSIS Blog:
http://microsoft-ssis.blogspot.com |
Twitter