leer directorios y subdirectorios

[dexter_x740]

quisiera ver quien puede ayudarme, resulta tengo un procedimiento en visual basic que se supone que debe de listar todos los archivos de un directorio así como de los archivos que se encuentren en subdirectorios de manera recursiva. el problema es que por ejemplo al tener un directorio que tiene un archivo y un subdirectorio y ese subdirectorio a su vez tiene un archivo, el procedimiento lee el subdirectorio y su contenido pero al momento de continuar donde se habia quedado en el directorio principal me da un error de llamada a procedimiento o argumentos invalidos. pongo el codigo que uso:

Sub leer(ruta As String)
Dim ar As String
ar = Dir$(ruta & "*.*", vbDirectory)

If ar <> "" Then


Do While ar <> ""

If ar <> ".." And ar <> "." Then

If (GetAttr(ruta & ar) And vbDirectory) = vbDirectory Then

leer ruta & ar & "\"
Else
lista.AddItem "Archivo:" & ar

'fin de es carpeta o archivo
End If

'fin de checar si es . o ..
End If



ar = Dir$ <--- aqui me marca el error

'fin while
Loop

'fin de hay archivos
End If
End Sub

[aavg]

Para que lo estas utilizando? quizas podrias usar un API de windows si lo que te interesa es unicamente listar los directorios, unidades y archivos de tu pc, y a la vez poder tener una ruta de archivo seleccionado.

[dexter_x740]

estoy usando ese codigo para listar los archivos de un directorio y sus subdirectorios de forma recursiva, creo que en teoria deberia funcionar pero no se porque me marca ese error.

[aavg]

Existe una API llamada SHBrowseForFolder, esta te muestra todas las carpetas y unidades de red o carpetas compartidas de tu PC

http://allapi.mentalis.org/apilist/S...orFolder.shtml

y también hay unos controles en VBasic llamados: DriveListBox y FileListBox que te podrían servir, depende del objetivo de tu aplicación

[dexter_x740]

ya se de la API de BrowseForFolder der hecho la uso para seleccionar la carpeta deseada lo ke pasa eske necesito ir leyendo el contenido de dicha carpeta y de las sub carpetas porque es parte de una aplicacion que hago, un encriptador de archivos, por eso no me sirven los controles drivelistbox ni filelistbox y quiero saber porque me marca error en la parte del codigo que señale, me dice: "llamada procedimiento o argumentos invalidos"