Sub Service_Create
Private rtp As RuntimePermissions
Main.PUB_InstDir= rtp.GetSafeDirDefaultExternal("")
Provider.Initialize
End Sub
Sub Service_Start (StartingIntent As Intent)
Private dbName As String = "mydata.dat"
Try
If File.Exists(Main.PUB_InstDir,dbName) = False Then
If File.Exists(File.DirRootExternal & "/APP",dbName) = True Then
File.Copy(File.DirRootExternal & "/APP",dbName,Main.PUB_InstDir, dbName)
Else
File.Copy(File.DirAssets, dbName, Main.PUB_InstDir, dbName)
End If
End If
Main.SQLTbl.Initialize(Main.PUB_InstDir, dbName, False)
Catch
ExitApplication
End Try
End Sub