Android Question Select folder and save path

Public Sub Load As ResumableSub
    Dim cc As ContentChooser
    cc.Initialize("cc")
    cc.Show("text/*", "Choose text file")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    
'    --- https://www.b4x.com/android/forum/threads/90-string-manipulation-methods.73564/ ---
    Dim APSU As ApacheSU
    Dim FileNameStr As String = APSU.SubstringAfterLast(FileName, "%2F")
    Dim DirStr As String = APSU.SubstringBeforeLast(FileName, "%2F")
    Log(DirStr)
    Log(FileNameStr)
        
    Dim res As LoadResult = CreateLoadResult(Success, Dir, FileName)
    If res.Success Then ExtractInformationFromURI(res.FileName, res)
    Return res
End Sub