Added "Backup GBM data files on launch" feature

2018-03-06 13:19:47 -06:00
parent ebc185d7b8
commit b9244eeeae
8 changed files with 92 additions and 26 deletions
@@ -1022,6 +1022,13 @@ Public Class frmMain
        oRemoteDatabase.DatabaseUpgrade()
    End Sub

+    Private Sub BackupDatabases()
+        Dim oLocalDatabase As New mgrSQLite(mgrSQLite.Database.Local)
+        Dim oRemoteDatabase As New mgrSQLite(mgrSQLite.Database.Remote)
+        oLocalDatabase.BackupDB(App_BackupOnLaunchFileDescription, True)
+        oRemoteDatabase.BackupDB(App_BackupOnLaunchFileDescription, True)
+    End Sub
+
    Private Sub LoadAndVerify()

        'If the default utility is missing we cannot continue
@@ -1051,6 +1058,11 @@ Public Class frmMain
            VerifyDBVersion(mgrSQLite.Database.Remote)
            RemoteDatabaseCheck()

+            'Backup GBM data
+            If oSettings.BackupOnLaunch Then
+                BackupDatabases()
+            End If
+
            'Sync Game Settings
            SyncGameSettings()
        End If