Private Sub Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Backup.Click
On Error GoTo ClickErr
Dim fileExists As Boolean
fileExists = My.Computer.FileSystem.FileExists("C:\Program Files\Store2Office\DBBackup.zip")
If fileExists Then
My.Computer.FileSystem.RenameFile("C:\Program Files\Store2Office\DBBackup.zip", "OMC_Backup_DBBackup.zip")
End If
Shell("C:\Program Files\Store2Office\
HK_Office.exe /backupdb")
My.Computer.FileSystem.CreateDirectory("C:\Program Files\Store2Office\Archive")
Dim folderExists As Boolean
folderExists = My.Computer.FileSystem.DirectoryExists("C:\Program Files\Store2Office\Archive")
If folderExists Then
My.Computer.FileSystem.MoveFile("C:\Program Files\Store2Office\DBBackup.zip", "C:\Program Files\Store2Office\Archive\DBBackup.zip")
End If
MsgBox("Databases are backed up")
ClickErr:
MsgBox(Err.Description)
End Sub