No entiendo la pregunta. ¿Necesitas listar los archivos de un directorio y los subdirectorios? ¿Necesitas ver el contenido de cualquier archivo y pasarlo a un textbox?
Necesitas un "esquema" de los directorios? Especifica más por favor..
Voy a suponer que necesitas todo.
Para sacar un Listado de rutas de carpetas:
Shell "cmd.exe /c " & chr(34) & "tree >> c:\archivo.txt" & chr(34) ' te lo guarda en el archivo c:\archivo.txt
Para listar los archivos y carpetas de un directorio en un msgbox:
Sub loquesea()
msgbox direa("c:\")
end sub
Function Direa(ruta as string) as string 'ruta tipo c:\windows\
Dim d As String
dim todojunto as string
d = Dir(ruta & "*.*", vbDirectory)
While d <> ""
d = Dir
todojunto = todojunto & d & vbCrLf
Wend
direa = todojunto
end function
...Y para ver el contenido de un archivo en tu textbox -> text1...
Sub miraArchivo(ruta as string)
Open Ruta For Binary Access Read As #1 'Ruta tipo c:\jamon\bribon\truhan.txt ó 'c:\ladron.exe, etc.
Dim BufferArchivo As String
BufferArchivo = Space(LOF(1))
Get #1, , bufferarchivo
close #1
text1.text = bufferArchivo
end Sub
Podrías usar la última para leer el archivo que genera el tree >> archivo.txt, pero en tal caso retarda la operacion.
Autor