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