Android Question Get List of File paths into an array using WildCards

[rasoul_ghasemiyan]

Hi,
I used this class wildcardlisting to get the file path that written by DonManfred
His class get list of files on phone and display them with the Log function.
How can I save the path of found files in an array or a string?
For example, I use this:

Sub Process_Globals
    Dim str As String
    Dim lst As List
End Sub

Sub Service_Create
    lst.Initialize
End Sub

Sub wcl_ListFilesFinish(FileListing As List)
    Log("wcl_ListFilesFinish("&FileListing.Size&")")
    For i = 0 To FileListing.Size -1
        Log(FileListing.Get(i))
        
        str = str & FileListing.Get(i) & CRLF
'       OR
        lst.Add(FileListing.Get(i))
    Next
End Sub

Sub Display
    For Each i As String In lst
        Log(i)
    Next
    Log(str)
End Sub

But str and lst don't contain path of found files. ☹
any answer will be appreciated.

 

[Erel]

Storing the paths in a list is the best option. It looks like the paths are stored in FileListing.

 

[rasoul_ghasemiyan]

Storing the paths in a list is the best option. It looks like the paths are stored in FileListing.

Dear Erel
thank you for the answer
It looks good and will be correct, but I don't know why it doesn't show anything on the output.

 

[DonManfred]

But str and lst don't contain path of found files. ☹
any answer will be appreciated.

i don´t see you running any search.

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim wcl As wildcardlisting
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    wcl.Initialize(Me,"WCL")
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_Permissionresult(Permission As String, Result As Boolean)
    If Result Then
        wcl.ListFiles(File.DirRootExternal,True,"*.*",True,True)
    End If
    
End Sub
Sub WCL_ListFilesFinish(FileListing As List)
    Log("wcl_ListFilesFinish("&FileListing.Size&")")
    For i = 0 To FileListing.Size -1
        Log(FileListing.Get(i))
    Next
End Sub

 

[rasoul_ghasemiyan]

i don´t see you running any search.

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim wcl As wildcardlisting
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    wcl.Initialize(Me,"WCL")
    Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_Permissionresult(Permission As String, Result As Boolean)
    If Result Then
        wcl.ListFiles(File.DirRootExternal,True,"*.*",True,True)
    End If
   
End Sub
Sub WCL_ListFilesFinish(FileListing As List)
    Log("wcl_ListFilesFinish("&FileListing.Size&")")
    For i = 0 To FileListing.Size -1
        Log(FileListing.Get(i))
    Next
End Sub

Hi DonManfred, apologize
So thank you
It works properly now?