Sub Activity_Create(FirstTime As Boolean)
' >>>>>>>>>>>>>>>>>>> test
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
Log(Permission & " : " & Result)
Log(File.DirRootExternal) ' needed for permission
Log(Permission)
Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$)
End If
end sub
' >>>>>>>>>>>>>>>>>>>>>