Spanish Listar Carpetas of Archivos

[hibrid0]

Hola aquí les traigo una forma rápida de obtener la lista de Carpetas de un directorio, devuelve una lista con los directorios o con los archivos.

Lista de Carpetas

Sub ListFolders(dir As String) as List
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

Lista de Archivos:

Sub ListFiles(dir As String) as List
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

 

[Heppy]

Gracias por las rutinas

 

[JordiCP]

Gracias!
Al retornar valores, las cabeceras de las funciones deberían ser

Sub ListFolders(dir As String) as List

y

Sub ListFiles(dir AsString) as List

 

[hibrid0]

Fixed, Gracias. SI habia visto un warning, pero igual me funcionaba.
Hasta ahora estoy aprendiendo esto de B4A :-D

 

[cpedgarbm]

Gracias por compartir, de nada sirve el conocimiento que no se comparte. mas que agradecido.

 

[bgsoft]

Hola

Seria interesante que añadieras esto:

Try
  list_files=File.ListFiles(dir)
Catch
    Log("No se puede acceder a la carpeta")
    Return lista_folders
 End Try

De estas forma si te pasan una carpeta que es root y el dispositivo no lo es no te dará un error, o tambien en el caso que la carpeta no exista.

Buen trabajo

Saludos