Sotto Class_Globals
Radice privata come B4XView
Privato xui As XUI
RP privato come RuntimePermissions
   
Pulsante privato1 come pulsante
Pulsante privato2 come pulsante
End Sub
Inizializzazione secondario pubblica
   
End Sub
'Questo evento verrà chiamato una volta, prima che la pagina diventi visibile.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
       
       
       
Attendi (Check_Permissions) Completo (risultato come booleano)
Se risultato allora
        'Il programma continua
altro
        'Il programma si chiude o avverte l'utente
Termina se
   
    If File.Exists(File.DirRootExternal,("Block")) Then
Xui. MsgboxAsync("cartella esise","B4X")
   
altro
File.MakeDir(File.DirRootExternal,("Blocco"))
Xui. MsgboxAsync("creata cartella","b4x")
       
Termina se
   
End Sub
Private Sub Button1_Click
Xui. MsgboxAsync("Hello world!", "B4X")
   
   
End Sub
Sotto Check_Permissions come ResumableSub
Per ogni autorizzazione Come stringa in matrice(rp. PERMISSION_WRITE_EXTERNAL_STORAGE) La commissione per l'PERMISSION_WRITE_EXTERNAL_STORAGE
       
Rp. CheckAndRequest(autorizzazione)
Attendi Activity_PermissionResult (autorizzazione Come stringa, Risultato come booleano)
        If Result = False Then Return False
prossimo
Ritorno vero
End Sub
Sito Button2_Click
    Dim tw As TextWriter
    Dim FileName  As String = "Block/Prova.txt"
'tw. Initialize2(File.OpenOutput(File.DirRootExternal,FileName,False),"UTF8")
Tw. Initialize2(File.OpenOutput(File.DirRootExternal,FileName,False),"UTF8")
Tw. Scrivi("ciao")
   
Tw.