Hi I shared a simple code to get a list of folders or Files without folders
Get List Folders
Get List Files
Get List Folders
B4X:
Sub ListFolders(dir As String)
Dim list_files As List
Dim lista_folders As List
lista_folders.Initialize
list_files=File.ListFiles(dir)
For i= 0 To list_files.Size -1
If File.IsDirectory(dir, list_files.Get(i))=True Then
lista_folders.Add(list_files.Get(i))
End If
Next
Return lista_folders
End Sub
Get List Files
B4X:
Sub ListFiles(dir As String)
Dim list_files As List
Dim lista_folders As List
lista_folders.Initialize
list_files=File.ListFiles(dir)
For i= 0 To list_files.Size -1
If File.IsDirectory(dir, list_files.Get(i))=false Then
lista_folders.Add(list_files.Get(i))
End If
Next
Return lista_folders
End Sub