Main.FavSQL.Close
Main.DeckSQL.Close
'Backup the original in case of failure
File.Copy(File.DirInternal,"vguser.db",File.DirInternal,"vguser.dbk")
File.Copy(File.DirDefaultExternal & "/backups",sFile& ".vgbk",File.DirInternal,"vguser.db")
Dim Success As Boolean
Success=True
Try
Main.FavSQL.Initialize(File.DirInternal, "vguser.db", False)
Catch
Success=False
End Try
If (Success) Then
Main.DeckSQL.Initialize(File.DirInternal, "vguser.db", False)
Else
'Restore from the backup
File.Copy(File.DirInternal,"vguser.dbk",File.DirInternal,"vguser.db"
Main.FavSQL.Initialize(File.DirInternal, "vguser.db", False)
Main.DeckSQL.Initialize(File.DirInternal, "vguser.db", False)
End If
'Delete the backup
File.Delete(File.DirInternal,"vguser.dbk")
If (Success) Then
Msgbox("Backup File "&sFile&" Restored","Success")
Else
Msgbox("Not supported on this version of Android","Failure")
End If