dim FTP as FTP
FTP.Initialize("FTP", "domain", 21, "user", "password")
FTP.PassiveMode = True
FTP.UploadFile(Image_Dir, Image_Name, False, "/Folder/" & Update_Item_Code & ".jpg")
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
ToastMessageShow("Image Upload Fail.",True)
Else
Image_Upload_Done = True
End If
End Sub