Listar directorios y subdirectorios en un listbox

[..::MaRcOs::..]

Hola

mi inquietud es la siguinete necesito declaras unas carpetas para que se carguen
sus contenidos en un listbox y no solo deben cargar el contenido de dicha
carpeta si no que el contenidos de las subcarpetas osea todo.

de antemano muchas gracias
al que me pueda colaborar... y a los que no tambien

[culd]

La mas facil es usar un DirListBox y un FileListBox y recorrer secuencialmente e ir cargando lo que vas leyendo.

[..::MaRcOs::..]

si no es mucha molestia
me puedes indicar como

[rulsanchez]

Hola marcos, veras, ponte un drivelistbox, un dirlistbox y un filelistbox (para los directorios, las carpetas y finalmente los ficheros).
En el evento Change del drivelistbox tienes que indicarle que el path del dirlistbox sea el del drive del drive es decir: Dirlistbox.Path = Drivelisbox.Drive

En el evento Change del dirlistbox debes indicarle que el path del filelistbox sea el del path del dirlistbox, es decir: FileListbox.Path = DirListbox.Path

Y ya esta, luego en las propiedades de este ultimo (el filelistbox) puedes indicarle que busque determinada extension de archivos etc.
Espero haberte ayudado con esto, si no es asi, cuentame y lo vemos ;)
Un saludo

[Avellaneda]

Iniciado por ..::MaRcOs::..

Hola

mi inquietud es la siguinete necesito declaras unas carpetas para que se carguen
sus contenidos en un listbox y no solo deben cargar el contenido de dicha
carpeta si no que el contenidos de las subcarpetas osea todo.

de antemano muchas gracias
al que me pueda colaborar... y a los que no tambien

Hola, prueba con un procedimiento como éste:

Código:

Private Sub ListarDir(sDir As String)
Dim MisCarpetas As String
Dim a() As String, i As Long
Dim iArchivos As Long, iCarpetas As Long

' todos los archivos y carpetas, incluso los ocultos, de sólo lectura y de sistema
MisCarpetas = Dir(sDir, vbDirectory + vbHidden + vbReadOnly + vbSystem)
ReDim a(0)
Do While MisCarpetas <> ""
   If MisCarpetas <> "." And MisCarpetas <> ".." Then
        If (GetAttr(sDir & MisCarpetas) And vbDirectory) = vbDirectory Then
            ' es una carpeta, la añadimos al array
            ReDim Preserve a(i)
            a(i) = MisCarpetas & "\"
            i = i + 1
        Else
            ' es un archivo, lo sumamos a la variable iArchivos
            List1.AddItem MisCarpetas
            iArchivos = iArchivos + 1
      End If
   End If
   MisCarpetas = Dir
Loop
iCarpetas = iCarpetas + i
For i = 0 To UBound(a)
    ' hacemos una recursividad al sub con cada una de las carpetas guardadas en el array
    If a(i) <> "" Then
        ListarDir sDir & a(i)
        List1.AddItem sDir & a(i)
    End If
    DoEvents
Next i
End Sub

Para llamar al procedimiento:

Código:

Private Sub Command1_Click()
ListarDir "c:\Documents and Settings\All Users\"
End Sub

[..::MaRcOs::..]

Hola Avellaneda
muchas gracias perfecto lo que necesitaba
ya habia echo uno pero pues no era como tan
confiable como me parece este... muchas gracias¡

[..::MaRcOs::..]

hola de nuevo yo jeje
ahora resulta que no esta sacando el resto de subdirectorios
me explico

tengo las siguientes carpetas:

-musica
----vallenatos
--------diomedes diaz
----rancheras
--------vicente fernandez
--------cornelio reina
----merengue
----rock

y solo me esta mostrando los archivos de
musica, vallenatos, rancheras, merengue y rock
y las subcarpetas de las subcarpetas no

que puedo hacer?

[David]

Yo también opino que es más fácil si usas el DirListBox, DriveListBox y FileListBox.

Bueno, de todos modos tal vez te resulte útil este ejemplo para buscar archivos recursivamente, no es exactamente lo que buscas, pero puede darte una idea:
http://www.forosdelweb.com/f69/busca...0/#post2539874

[Avellaneda]

Iniciado por ..::MaRcOs::..

hola de nuevo yo jeje
ahora resulta que no esta sacando el resto de subdirectorios
me explico

tengo las siguientes carpetas:

-musica
----vallenatos
--------diomedes diaz
----rancheras
--------vicente fernandez
--------cornelio reina
----merengue
----rock

y solo me esta mostrando los archivos de
musica, vallenatos, rancheras, merengue y rock
y las subcarpetas de las subcarpetas no

que puedo hacer?

Hola Marcos,
¿Seguro que copiaste bien el procedimiento? a mi me funciona correctamente; lista los archivos, carpetas y todas las subcarpetas con sus archivos.

¿De qué tipo son los archivos que no lista?

Un saludo

[gcas2001]

Hola, te está listando los directorios que no incluyen el caracter espacio en sus nombres.
Es mala practica informática ponerle nombre a los archivos o carpetas que incluyan espacio, dado que complejiza su manejo para las scripts de DOS por ejemplo.Y se ve que en este caso también complica.
De cualquier manera con esta rutina no me pasa:

Camino = TextPath.Text
'Listo directorios
'Directorio = Dir(Camino, vbDirectory + vbHidden + vbReadOnly + vbSystem) 'Si quiero carpetas del ocultas, del sistema, etc
Directorio = Dir(Camino, vbDirectory)
Do While Directorio <> ""
DoEvents
If Directorio <> "." And Directorio <> ".." Then
If (GetAttr(Camino + Directorio) And vbDirectory) = vbDirectory Then
TextCarpetas.Text = TextCarpetas.Text + vbCrLf + Directorio
End If
End If
Directorio = Dir
Loop

Es en VB 6.0, incluye un TextBox llamado TextCarpetas

[pkj]

La idea era meterlos en un listbox (ademas de que has escarbado bien :D 2008, que tiempos...)

En fin, solo hay que cambiar el textbox por un listbox y adaptarlo para que busque tambien los subdirectoros :P