Script task code not executing

I don't work with SSIS much, but in the script task to you have to tell it to execute MAIN()?

If you don't, maybe you have to explicitly call it.

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
 
Public Class ScriptMain
 
call MAIN() 
    ' The execution engine calls this method when the task executes.
    ' To access the object model, use the Dts object. Connections, variables, events,
    ' and logging features are available as static members of the Dts class.
    ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
    ' 
    ' To open Code and Text Editor Help, press F1.
    ' To open Object Browser, press Ctrl+Alt+J.
 
    Public Sub Main()
 
 
        Try
 
            'Create the connection to the ftp server
 
            Dim cm As ConnectionManager = Dts.Connections.Add("FTP")
 
            'Set the properties like username & password
 
            cm.Properties("ServerName").SetValue(cm, "ServerName")
 
            cm.Properties("ServerUserName").SetValue(cm, "ServerUserName")
 
            cm.Properties("ServerPassword").SetValue(cm, "password")
 
            cm.Properties("ServerPort").SetValue(cm, "21")
 
            cm.Properties("Timeout").SetValue(cm, "0") 'The 0 setting will make it not timeout
 
            cm.Properties("ChunkSize").SetValue(cm, "1000") '1000 kb
 
            cm.Properties("Retries").SetValue(cm, "5")
 
            'create the FTP object that sends the files and pass it the connection created above.
 
            Dim ftp As FtpClientConnection = New FtpClientConnection(cm.AcquireConnection(Nothing))
 
            'Connects to the ftp server
 
            ftp.Connect()
 
 
            ftp.SetWorkingDirectory("/dir1/dir2/") 'set the remote directory
 
            Dim files(0) As String
            files(0) = "ftpfile.zip" 'eg. File1.trg
 
            'Get the file
            ftp.ReceiveFiles(files, "C:\localfolder", True, False)
 
                ftp.Close()
 
        Catch ex As Exception
 
            Dts.TaskResult = Dts.Results.Failure
 
        End Try
 
        Dts.TaskResult = Dts.Results.Success
 
    End Sub
 
End Class

Select allOpen in new window

I changed to values to my FTP site and got it to work. I did not change any of your code. It does work.
I removed the Try, Catch to test because it would not error as expected with it in there. But after I got it working by putting my site in, I put the Try Catch back and it works fine.
I also added MsgBox lines at different places to show me where the code was. For example:
ftp.Connect()
MsgBox("after ftp.Connect")
 Bottom line, nothing wrong with the code. I agree that it does not error because of the Try Catch, not sure why.