Sub Process_Globals
Public Rtp As RuntimePermissions
Public Kvs As KeyValueStore
'common to activities
Public WorkingDir As String 'directory used to store app data
...
Sub Service_Create
'create the working directory If doesn't exist...
Dim Dir As String=Rtp.GetSafeDirDefaultExternal("") 'safe directory device dependent
Kvs.Initialize(Dir, "manager") 'init keyvaluestore
WorkingDir=File.Combine(Dir,"screenlock")
...
'manifest:
'add permission for sdk up to 18 for the external storage
AddManifestText(
<uses-permission
android:name="android.permission.WRITE_EXTERNAL_STORAGE"
android:maxSdkVersion="18" />)