> Faqs > File System Object

File System Object

Quisiera saber si usando fso hay manera de leer todos los archivos que hay en una carpeta. Ya estuve probando y no doy en la tecla. Muchas gracias desde ya.

Responder la pregunta
Editar Hacer otra preguntaPreguntar

Respuestas

Te paso una copia de como podes hacerlo....

<span class="codigo"> Dim fs, f, f1, fc, s
Dim folderspec
folderspec = "c:ControlGastos"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
MsgBox f1.name
Next </span>

Espero que te sirva. Esto es muy facil de modificar para que te muestre todos los subdirectorios....

Miguel Angel Navas