Main.FTP.PassiveMode = True
Dim sf As Object = Main.FTP.UploadFile(File.DirDocuments & "/" & "db", dbname_copy, False, FTP_Desination_Address & dbname_copy)
Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If
lbl_heading1.Text = "Exporting Data - db3 Complete"
confirm_export_btn.Text = "Verifying....."
cancel_export_btn.Enabled = True
cancel_export_btn.Text = "Return"
Dim sf As Object = Main.FTP.UploadFile(File.DirDocuments & "/" & "db", ver_filename, False, FTP_Desination_Address & ver_filename)
Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If