Hello,

exactly i used same above code to send a file to FTP server.But my script task remains in execution mode all the time ( Yellow ).

can any please suggest wat happening in my code . I have tested my FTp connection in Script task as well as in FTP connection manger : working perfectly

Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain

Public Sub Main()

Try

Dim cm As ConnectionManager = Dts.Connections.Add("FTP")

cm.Properties("ServerName").SetValue(cm, "S-SQL15.apollo.zeus.internal")

cm.Properties("ServerUserName").SetValue(cm, "FTPUser")

cm.Properties("ServerPassword").SetValue(cm, "ftpconnection@123")

cm.Properties("ServerPort").SetValue(cm, "21")

cm.Properties("Timeout").SetValue(cm, "0")

cm.Properties("ChunkSize").SetValue(cm, "1000") '1000 kb

cm.Properties("Retries").SetValue(cm, "1")

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

'Connects to the ftp server

http://ftp.Connect()

Dim files(0) As String

files(0) = "C:\TestFtp.txt"

http://ftp.SendFiles(files, "/", True, False)

http://ftp.Close()

Catch ex As Exception

Dts.TaskResult = Dts.Results.Failure

End Try

Dts.TaskResult = Dts.Results.Success

End Sub

End Class