Funciones ASP para recorrer directorios y archivos en directorios. No pude encontrar ninguno de ellos en Internet, así que los corregí usando Emeditor <%@ Language=vbscript %>
<%
'Función para recorrer directorios y archivos bajo directorios
%>
<%
FunciónBianli(ruta)
Establecer Fso=server.createobject(scripting.filesystemobject)
En caso de error Continuar siguiente
Establecer Objfolder=fso.getfolder(ruta)
Establecer Objsubfolders = objfolder.subfolders
Para cada subcarpeta Obj en Objsubfolders
Nowpath=ruta + / + Objsubcarpeta.nombre
Respuesta.escribir ahoraruta
Establecer Objfiles=objsubfolder.files
Para cada archivo Obj en Objfiles
Respuesta.escribir <br>---
Respuesta.escribir Objfile.name
Próximo
Respuesta.escribir <p>
Bianli(nowpath)'recursivo
Próximo
Establecer carpeta de objetos = nada
Establecer subcarpetas de objetos = nada
Establecer Fso = nada
Función final
%>
<%
Bianli(D:) 'Atraviesa el disco d:
%>