'Database hasn't been copied to read/write area
If File.Exists(File.DirInternal,"themsc.db") = False Then
'ToastMessageShow("Database hasn't been copied to read/write area",True)
'Msgbox("Database hasn't been copied to read/write area","Debug")
File.Copy(File.DirAssets,"themsc.db",File.DirInternal,"themsc.db")
Else
'Database is in the read/write area, check the db_ver matches the app_ver
'ToastMessageShow("Database is in the read/write area",True)
'Msgbox("Database is in the read/write area","Debug")
EndIf