Sub UpLoad
ToastMessageShow("Upload, wait...",False)
UpLo=File.ListFiles(File.DirInternal&"/test")
kolupload=UpLo.Size-1
If UpLo.Size<>0 Then
FTP.UploadFile(File.DirInternal&"/test",UpLo.Get(kolupload),False,"/test/"&UpLo.Get(kolupload))
Else
ToastMessageShow("Nothing upload...",True)
End If
End Sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then
Log(LastException.Message)
ToastMessageShow(LastException.Message,False)
Else
If kolupload=0 Then
ToastMessageShow("All files uploaded",False)
Else
kolupload=kolupload-1
FTP.UploadFile(File.DirInternal&"/test",UpLo.Get(kolupload),False,"/test/"&UpLo.Get(kolupload))
End If
End If
End Sub