local file size 12K
Uploaded to the server only 4K
FTP.Initialize("FTPCommand","*******",21,"***","***")
FTP.UploadFile(File.DirDocuments,"Ordine.db",True,"/Ordine.db")
Sub FTPCommand_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
hd.ProgressDialogHide
Msgbox("ok!","FTP")
Else
Msgbox("FTP error!","FTP error")
End If
End Sub
Prompt ok