Nombre de Subdirectorios dentro de LISTBOX

Existe un control para la lista de archivos de un directorio...
es el filelist object y no es necesario instalar ocx ni referencias, es
parte básica del vb.



"Ing.Victor Schnidrig" escribió en el mensaje
news:%

Hola:
Tengo un directorio con barios subdirectorios.
Aguien puede decrime como puedo colocar con codigo Vb, el nombre del los
subdirectoiros dentro de un ListoBox
Desde ya, muchas gracias
Victor Schnidrig
Argentina

Hola

Este codigo te servira:

Dim fs, f, f1, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Windows")
Set sf = f.SubFolders
For Each f1 In sf
List1.AddItem (f1.Name)
Next

Solo ceciórate de cambiar la ruta por la que deseas.

Espero haberte ayudado.

Atte. Fdo. Fdez.

Gracias fernando
Es exactamente lo que necesito.
Victor

"Fernando" escribió en el mensaje
news:030001c3401c$8e95cdb0$
Hola

Este codigo te servira:

Dim fs, f, f1, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Windows")
Set sf = f.SubFolders
For Each f1 In sf
List1.AddItem (f1.Name)
Next

Solo ceciórate de cambiar la ruta por la que deseas.

Espero haberte ayudado.

Atte. Fdo. Fdez.