Android Question Can't create folders anymore on my mobile

Fab117 said:

Hi,

Long time ago I created an app that I'd like to upgrade.

But I'm already blocked at the 1st stage, I can't create the subfolders on the mobile (ideally in "/storage/emulated/0"

Here is the code I had in Starter:

Starters:

Sub Process_Globals
    ' Repertoire de stockage des données
    Public EmplacementStockageSurDevice As String : EmplacementStockageSurDevice = File.DirRootExternal 'EmplacementStockageSurDevice : /storage/emulated/0
    Public RepertoireRacine As String : RepertoireRacine = "/Toto App"
    Public NomApplication As String : NomApplication = "/First App"
End Sub

Sub Service_Create
  
    '___________________________________________________________________
    '<<<======================
    ' ______________Création des Répertoires nécessaires sur le Device et copie des fichiers langues et du fichier ini_____________________________
    ' ==========================>>>
    ' Création des répertoires pour stocker la base de données, les photos et les fichiers langues si nécesaire
    If File.Exists(EmplacementStockageSurDevice & RepertoireRacine & NomApplication & "/Pictures", "") = False Then
        File.MakeDir(EmplacementStockageSurDevice, RepertoireRacine & NomApplication & "/Pictures")
    End If
    If File.Exists(EmplacementStockageSurDevice & RepertoireRacine & NomApplication & "/Data Base", "") = False Then
        File.MakeDir(EmplacementStockageSurDevice, RepertoireRacine & NomApplication & "/Data Base")
    End If
    If File.Exists(EmplacementStockageSurDevice & RepertoireRacine & NomApplication & "/Language support files", "") = False Then
        File.MakeDir(EmplacementStockageSurDevice, RepertoireRacine & NomApplication & "/Language support files")
    End If
    ' Création du répertoires pour stocker les photos encryptées si nécesaire
    If File.Exists(EmplacementStockageSurDevice & RepertoireRacine & NomApplication & "/tmp/Pictures/Zip", "") = False Then
        File.MakeDir(EmplacementStockageSurDevice, RepertoireRacine & NomApplication & "/tmp" & "/Pictures" & "/Zip")
    End If
    ' Création du répertoires pour stocker la base de données encryptées si nécesaire
    If File.Exists(EmplacementStockageSurDevice & RepertoireRacine & NomApplication & "/tmp/Data Base/Zip", "") = False Then
        File.MakeDir(EmplacementStockageSurDevice, RepertoireRacine & NomApplication & "/tmp" & "/Data Base" & "/Zip")
    End If
    ' Création du répertoires pour stocker les pdf
    If File.Exists(EmplacementStockageSurDevice & RepertoireRacine & NomApplication & "/PDFs", "") = False Then
        File.MakeDir(EmplacementStockageSurDevice, RepertoireRacine & NomApplication & "/PDFs")
    End If

End Sub

I spend really long time on the "B4X Getting Started" & "B4X Basic Language" (chap 5.13.1.1.2) guides and on the forum (e.g. https://www.b4x.com/android/forum/threads/solved-file-dirrootexternal-and-runtimepermissions.90780/), but despite lot of trials, didn't solve it.

I also tried to create them on "File.DirDefaultExternal" (which could be an option for me, but less valuable), but was also unsuccessful.



Would someone be able to help me on this?



Thanks.



Fab

Click to expand...

1. Open Manifest Editor
2. Replace ligne <uses-sdk android:minSdkVersion="X" android:targetSdkVersion="XX"/> by <uses-sdk android:minSdkVersion="5" android:targetSdkVersion="28"/>
3. Not in Starter => e.g. in "Main":

Sub Activity_Create(FirstTime As Boolean)
    FolderCreation
End Sub

Sub FolderCreation
    Dim rp As RuntimePermissions
    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        File.MakeDir(File.DirRootExternal,"Fabdd/772")': /storage/emulated/0
        MsgboxAsync("Folder created", "Hopefuly")
    Else
        MsgboxAsync("Impossible to create folders", "Error")
    End If
End Sub

Fab117 said:

Hopefully solved.

Click to expand...

DonManfred said:

You can not upload this app to google Playstore using targetsdk = 28. Is this intentional/expected?

Click to expand...

Fab117 said:

Should I proceed differently?

Click to expand...

Sub Activity_Create(FirstTime As Boolean)
    FolderCreation
End Sub

Sub FolderCreation
    Dim rp As RuntimePermissions
    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        File.MakeDir(File.DirRootExternal,"Fabnnn/rrr")': /storage/emulated/0
        MsgboxAsync("Folder created", "Hopefuly")
    Else
        MsgboxAsync("Impossible to create folders", "Error")
    End If
    
    copiefichier
End Sub

Sub copiefichier
    Private lstFiles As List
    lstFiles = File.ListFiles(File.DirAssets)

For i = 0 To lstFiles.Size - 1
    Dim FileName As String
    FileName = lstFiles.Get(i)
    If FileName = "Test.txt" Then
        File.Copy(File.DirAssets, FileName, File.DirRootExternal &"Fabnnn/rrr", FileName)
    End If
Next

End Sub

• My app must copy some files from File.DirAssets to "easily accessible" folders on my mobile.
• Then the user (through the app) will do changes on those files (database). NB: The user will also generate new files (pictures; pdf) in those folders

Fab117 said:

I still can create folders in File.DirRootExternal

Click to expand...