I use this code to upload files to a ftp server:
Dim ftp As FTP
ftp.Initialize("ftp", sServer, 21, sUser, sPwd)
Dim oFtpJob As Object = ftp.UploadFile(sResourceFolder, sFileName, False, "/" & sFileName)
Wait For (oFtpJob) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
If...