Creating an FTP connection manager thru the Script Task:-

Public Sub Main() Dim result As Integer Dim manager As ConnectionManager Dim ftpClient As FtpClientConnection Dim foldersList As String() Dim filesList As String() manager = Dts.Connections("FTP") ftpClient = New FtpClientConnection( _ manager.AcquireConnection(Nothing)) Try If ftpClient.Connect() Then Call ftpClient.SetWorkingDirectory("/") Call ftpClient.GetListing(foldersList, filesList) ' Store files list in package variable. Call Dts.VariableDispenser.LockOneForWrite( _ "ResultVar", _ vars) Try vars("ResultVar").Value = filesList Finally Call vars.Unlock() End Try End If Catch ex As Exception result = Dts.Results.Failure Call Dts.Events.FireError( _ 0, _ String.Empty, _ ex.Message, _ String.Empty, _ 0) Finally Call ftpClient.Close() End Try Dts.TaskResult = resultEnd Sub ' Main