Spanish Listar Carpetas of Archivos

Discussion in 'Spanish Forum' started by hibrid0, Jun 19, 2015.

Similar threads

B4A Code Snippet List Folders or ListFiles
B4R Tutorial Arduino - PC File Transfer
B4R Tutorial SD cards
B4A Question File DirDefaultExternal
B4A Code Snippet [B4X] CopyFolder
  1. hibrid0

    hibrid0 Active Member Licensed User

    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

    Code:
    Sub ListFolders(dir As Stringas 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:
    Code:
    Sub ListFiles(dir As Stringas 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
     
    Last edited: Jun 26, 2015
    bgsoft, JordiCP and Heppy like this.
  2. Heppy

    Heppy Active Member Licensed User

    Gracias por las rutinas
     
  3. JordiCP

    JordiCP Well-Known Member Licensed User

    Gracias!:)
    Al retornar valores, las cabeceras de las funciones deberían ser
    Code:
    Sub ListFolders(dir As Stringas List
    y
    Code:
    Sub ListFiles(dir AsString) as List
     
    hibrid0 likes this.
  4. hibrid0

    hibrid0 Active Member Licensed User

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

    cpedgarbm Member Licensed User

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

    bgsoft Well-Known Member Licensed User

    Hola

    Seria interesante que añadieras esto:

    Code:
    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
     
Loading...