Private Sub btnSend_Click
...
ToastMessageShow("Uploading...",True)
FTP.UploadFile(sDir, "gps.js", False, "/xy.com/abc/gps.js")
ToastMessageShow("Listing...",True)
FTP.List( "/xy.com/abc/")
...
End Sub
Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
ToastMessageShow("Listing completed: " & Success, True)
End Sub
Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
ToastMessageShow("Uploaded " & TotalUploaded & " bytes", True)
End Sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then
ToastMessageShow("Error uploading.", True)
Else
ToastMessageShow("Upload OK", True)
End If
End Sub