Recorrer directorios

[aviana]

gracias por responder,amigos. Ya he hecho todo esto y ahora tengo otro problema: como recorro los subdirectorios? al llamar recursivamente por primera vez a recorrer (con el primer subdirectorio, para listarlo), me da el error: Ruta de acceso no encontrada en la línea: set objFolder= objFSO.getfolder(Server.mappath(donde)). ¿Cual es el error?


Sub recorrer (donde)

dim objFSO, objFile, objFolder, veces, extension
set objFSO=server.createObject("Scripting.FileSys temObject")
set objFolder= objFSO.getfolder(Server.mappath(donde))
response.write "listado del directorio de "& objFolder.path &"<br>"
for each objfile in objfolder.files 'Recorre los ficheros del directorio raiz
response.write objfile.name
next
for each objsubfolder in objfolder.subfolders 'Recorre los subdirectorios del directorio actual
recorrer objsubfolder.name
next

set objfolder=nothing
set objfso=nothing

end sub

recorrer ("facultad")