Sub Activity_Create(FirstTime As Boolean)
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("External Read/Write Permission Refused",True)
Activity.Finish
Else
Log("All OK") 'This is output every time
End If
Activity.LoadLayout("main")
AppDir = File.DirRootExternal & "/MyDir/"
File.WriteString(AppDir,"text.txt","1234") 'Error here: write permission refused
End Sub