Funções ASP para percorrer diretórios e arquivos em diretórios - não consegui encontrar nenhum deles na Internet, então os corrigi usando o Emeditor <%@ Language=vbscript %>
<%
'Função para percorrer diretórios e arquivos sob diretórios
%>
<%
FunçãoBianli(caminho)
Definir Fso=server.createobject(scripting.filesystemobject)
Em caso de erro, retomar o próximo
Definir Objfolder=fso.getfolder(caminho)
Definir Objsubfolders=objfolder.subfolders
Para cada Objsubfolder em Objsubfolders
Nowpath=caminho + / + Objsubfolder.name
Response.write Nowpath
Definir Objfiles=objsubfolder.files
Para cada arquivo obj em arquivos obj
Resposta.write <br>---
Response.write Objfile.name
Próximo
Resposta.write <p>
Bianli(nowpath)'recursivo
Próximo
Definir Objfolder = nada
Definir Objsubfolders = nada
Defina Fso = nada
Função final
%>
<%
Bianli(D:) 'Atravessa o disco d:
%>