Private Sub startftp
mFtp.Initialize("", "127.0.0.1" , 51041, "Test", "test")
'mFtp.Initialize("", "ftp.anse2000.it" , 21, "c1422", "c1422nI4ta2")
Log( "isinizialized " & mFtp.IsInitialized)
'Dim sf_send As Object = mFtp.SendCommand("MKD", "/somefolder/newfolder")
'"C:\B4J\works\B4JAnse2000\Objects\folderFiles"
Dim sf As Object = mFtp.UploadFile(File.DirApp, "c1422_ordfor.zip", False, "/c1422_ordfor.zip")
Log("start upload ")
Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
Log("ServerPath = " & ServerPath)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If
mFtp.Close
End Sub