Sub Process_Globals
Public FilePath As String
Public rp As RuntimePermissions
End Sub
Sub Service_Create
FilePath = File.DirRootExternal & "/Download"
File.MakeDir(FilePath,"")
End Sub
Sub Activity_Create(FirstTime As Boolean) 'in main Activity
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) '
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
File.Copy(File.DirAssets,"france.png",Starter.FilePath, "france.png")
End If
End Sub