Dim sf As Object = FTP.UploadFile( File.DirDefaultExternal, tfilename, False, tfilename )
wait for (sf) FTP_UploadCompleted( serverpath As String, success As Boolean )
If success = False Then
Log(LastException.Message)
MessageDialog.Show( "Error During Upload", LastException.Message, "Ok", "", "", 0, 0, .8 )
MessageDialog.Show( "Upload Not Completed", "Please try again another time", "Ok", "", "", 0, 0, .8 )
Activity.Finish
Else
File.Delete( File.DirDefaultExternal, tfilename )
pbx.Progress = 100
If file_number = file_list.Size Then
MessageDialog.Show( "Upload Complete", "Data has been uploaded to CFRF", "Ok", "", "", 0, 0, .8 )
Activity.Finish
StartActivity(DownloadODDUpdate)
Else
DoThisUpload( file_list.Get(file_number) )
End If
End If