rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
rp.CheckAndRequest(rp.PERMISSION_CAMERA)
Wait For Activity_PermissionResult (Permission As String, havePermission As Boolean)
If havePermission = False Then
ToastMessageShow("Sorry, can't continue, press button to try again.", True)
Return
End If
If FirstTime Then
If File.Exists(File.DirRootExternal, "mydatabasename.db") Then
If File.Exists(File.DirDefaultExternal, "mydatabasename.db") = False Then
File.Copy(File.DirRootExternal, "mydatabasename.db", File.DirDefaultExternal, "mydatabasename.db")
End If
File.Delete(File.DirRootExternal, "mydatabasename.db")
End If
If File.Exists(File.DirDefaultExternal, "mydatabasename.db") Then
If File.Exists(File.DirRootExternal & "/My App Backup Folder", "") = False Then
File.MakeDir(File.DirRootExternal, "My App Backup Folder")
End If
'File.Copy(File.DirDefaultExternal, "mydatabasename.db", File.DirRootExternal & "/My App Backup Folder", "mydatabasename.db." & DateTime.Now)
File.Copy(rp.GetSafeDirDefaultExternal(""), "mydatabasename.db", rp.GetSafeDirDefaultExternal("My App Backup Folder"), "mydatabasename.db." & DateTime.Now)
DoEvents
End If
'Starter.SQL1.Initialize(File.DirDefaultExternal, "mydatabasename.db", True)
Starter.SQL1.Initialize(rp.GetSafeDirDefaultExternal(""), "mydatabasename.db", True)
StartService(ScreenOnService)
End If