VB-Obtener subdirectorios

[jsaviola]

Buenas,
Alguien conoce una forma de obtener todos los subdirectorios de un subdirectorio conocido.
Algo por el estilo de fso con archivos pero con directorios (debajo)

Set fso = CreateObject("Scripting.FileSystemObject")

Set dir = fso.GetFolder(directorioOrigen)
Set archivos = dir.Files
For Each archivo In archivos
bla bla.

Desde ya gracias y saludos,

[jsaviola]

Alguien me puede ayudar????

[Jorge_Mota]

revisa la propiedad de


dir.SubFolders
dir.subfolders.count

[jsaviola]

Jorge,
He probado con lo que dices pero me da un error en:
"directorios = dir.subFolders"

Error '424' en tiempo de ejecución:
Se requiere un objeto


Lo has probado en VBasic o en ASP? Porque un amigo me paso un código ASP que utiliza lo mismo pero en VBasic no funca.

Gracias.

[miper]

Prueba con esto y me dices.

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\" ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory) ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
' Ignora el directorio actual y el que lo abarca.
If MiNombre <> "." And MiNombre <> ".." Then
' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
Debug.Print MiNombre ' Muestra la entrada
End If ' solamente si representa un directorio.
End If
MiNombre = Dir ' Obtiene siguiente entrada.
Loop

[jsaviola]

Excelente. Muchas Gracias.

[jsaviola]

Pido disculpas para Jorge_Mota pues la propiedad SubFolders funciona correctamente. Había cometido un error. Gracias a ambos.