Sub FTP_DownloadCompleted secondario (ServerPath come stringa, successo come booleano)
Log (ServerPath & ", Success =" & Success)
Se Success = False, allora Log (LastException.Message)
End Sub
Sub FTP_UploadCompleted secondario (ServerPath come stringa, successo come booleano)
Log (ServerPath & ", Success =" & Success)
ToastMessageShow (ServerPath & ", Success =" & Success, True)
Se Success = False Then
Log (LastException.Message)
ToastMessageShow (ServerPath & ", Success" & Success, True)
Finisci se
End Sub [/ CODE]
Sub BTInviaOrdine_Click
ftp.UploadFile (File.DirRootExternal, "file1.pdf", True, "/ xxxx / xxxxx / xxxxxx.com / xxxxx")
End Sub