| |||
Re: Recorrer directorios 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") |