Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result=False Then
ToastMessageShow("permission denied",True)
Else
File.WriteString(File.DirRootExternal, "fn.txt", "Some Text")
End If