Sub Process_Globals
Dim kv As KeyValueStore
End Sub
Sub Activity_Create(FirstTime As Boolean)
If File.Exists(File.DirDefaultExternal, "yourfolder" ) = False Then
File.MakeDir(File.DirDefaultExternal, "yourfolder")
FP = File.Combine(File.DirDefaultExternal,"yourfolder")
Else
FP = File.Combine(File.DirDefaultExternal,"yourfolder") 'note you can change file.dir and youfoldername
End If
kv.Initialize(FP, "data") 'this is your database you can change the name
End Sub