Android Question No such file or directory

[powerino]

Hi, I need to create a new folder and later a new .txt file, but i have this error: No such file or directory.

I have add this code to manifest, but don't go:

AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)

this is my code:


If File.Exists(File.DirRootExternal,"MathTest/ListResults.txt") Then


Else

For i = 0 To 99
listResult(i)="0"
Next

listResult(0)=dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt

'creo la cartella
File.MakeDir(File.DirRootExternal,"MathTest")


'salvo l'array nel file di testo
File.WriteList(File.DirRootExternal,"MathTest/ListResults.txt", listResult)


... Can you help me? thanks

 

[ronell]

can you post the error logs?

edit:
try this code

Dim path As String = File.DirRootExternal & "MathTest"
   
   
    If File.Exists(path,"ListResults.txt") Then


    Else

        For i = 0 To 99
            listResult(i)="0"
        Next

        listResult(0)=dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt

        'creo la cartella
        File.MakeDir(File.DirRootExternal,"MathTest")


        'salvo l'array nel file di testo
        File.WriteList(path,"ListResults.txt", listResult)

 

[powerino]

Don't work!

 

[LucaMs]

    Dim Folder As String = "MathTest"
    File.MakeDir(File.DirRootExternal, Folder)
    Dim FullPath As String = File.Combine(File.DirRootExternal, Folder)

    Dim lstResults As List
    lstResults.Initialize
    lstResults.Add(1)
    lstResults.Add(2)
    lstResults.Add(3)

    Dim FileName As String = "Results.txt"
    File.WriteList(FullPath, FileName, lstResults)

 

[LucaMs]

I have add this code to manifest, but don't go:

AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)

https://www.b4x.com/android/forum/threads/runtime-permissions-android-6-0-permissions.67689/

 

[ronell]

Don't work!

put forwardslash "/" before MathTest -> "/MathTest"

Dim path As String = File.DirRootExternal & "/MathTest"

 

[powerino]

Dim Folder As String = "MathTest"
File.MakeDir(File.DirRootExternal, Folder)
Dim FullPath As String = File.Combine(File.DirRootExternal, Folder)

Dim lstResults As List
lstResults.Initialize
lstResults.Add(1)
lstResults.Add(2)
lstResults.Add(3)

Dim FileName As String = "Results.txt"
File.WriteList(FullPath, FileName, lstResults)

Sorry, but don't works!

 

[LucaMs]

Sorry, but don't works!

Read carefully the thread about the runtime permissions.

 

[Mahares]

Sorry, but don't works!

Your code should be like this:

Sub Globals
    Private rp As RuntimePermissions
End Sub

Sub Activity_Create(FirstTime As Boolean)   
    Dim Folder As String ="MathTest"
    File.MakeDir(File.DirRootExternal,Folder)
    Dim FullPath As String=File.Combine(File.DirRootExternal,Folder)
   
    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)  '
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result = False Then
        MsgboxAsync("No permission to access external storage", "")
        Return
    Else
        Dim lstResults As List
        lstResults.Initialize
        lstResults.Add(1)
        lstResults.Add(2)
        lstResults.Add(3)
        Dim FileName As String= "Results.txt"
        File.WriteList(FullPath,FileName,lstResults)
    End If
End Sub

 

[powerino]

Thank you VERY much... NOW works!!!


Sub RegisterResults (minutesInt As Int, secondsInt As Int, errorsInt As Int)

If File.Exists(File.DirRootExternal,"MathTest/ListResults.txt") Then


Else

Dim Folder As String ="MathTest"
File.MakeDir(File.DirRootExternal,Folder)
Dim FullPath As String=File.Combine(File.DirRootExternal,Folder)

rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) '
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else

For i = 0 To 99
listResult(i)="0"
Next
'
listResult(0)=dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt

File.WriteList(FullPath,"ListResults.txt", listResult)


End If

End If



End Sub