Sub Process_Globals
'Database
Dim SQL1 As SQL
Dim DBFileDir As String : DBFileDir = File.DirDefaultExternal
Dim DBFileName As String : DBFileName = "mydb.s3db"
Dim DBFileBak As String : DBFileBak = "mydb.bak"
End Sub
Sub BackupButton_Click
SQL1.Close
File.Copy(DBFileDir, DBFileName, DBFileDir, DBFileBak)
SQL1.Initialize(DBFileDir, DBFileName, True)
Msgbox("Database has been Backed Up", "")
End Sub
Sub RestoreButton_Click
SQL1.Close
File.Copy(DBFileDir, DBFileBak, DBFileDir, DBFileName)
SQL1.Initialize(DBFileDir, DBFileName, True)
Msgbox("Database has been Restored", "")
End Sub