hai ragione!
FTP.Initialize("FTP", "ftp.labup2.altervista.org", 21, "labup2", "bugcabarro47")
FTP.UploadFile(File.DirRootExternal, "/MP/composizione.db",True,"/file/composizione.db")
Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
Dim s As String
s = "Uploaded " & Round(TotalUploaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
Log(s)
End Sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then Log(LastException.Message)
If Success=True Then ToastMessageShow("Upload Completato", False)
End Sub