Problema al listar ficheros

[aviana]

el problema consiste en recorrer los subdirectorios de un directorio dado. Al llamar recursivamente por primera vez a la función "recorrer" (con el primer subdirectorio, para listarlo), me da el error: Ruta de acceso no encontrada cuando llega a la línea: set objFolder= objFSO.getfolder(Server.mappath(donde)). ¿Cual es el error? EL código de la función es:

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

y la llamada:
recorrer ("facultad")