buscando entre mis codigos, encontre esto del FSO que lee desde el Root, todo su contenido, entra a cada carpeta, lee su contenido, y asi sucesivamente.... no esta muy bien realizado, pero como nada mas era para pruebas, a lo mejor lo puedes acondicionar mejor a tu proposito
Código HTML:
<%
response.Buffer=true
'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\"
response.write "<h1>-" & nombre_carpeta & "</h1>"
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
'para cada archivo, muestro su nombre.
response.Write "<h2>ROOT</h2>"
for each nombre_archivo in archivos
tyfile = fso.GetExtensionName(nombre_archivo.name)
response.Write "<br>" & tyfile
response.Write " - " & nombre_archivo.name
next
'recorro cada carpeta
Set archivos = carpeta.subfolders
'para cada archivo, muestro su nombre.
a=0
for each nombre_carpetas in archivos
a=a+1
response.Write "<h3>" & a &".-" & nombre_carpetas &"</h3>"
response.Flush()
Set carpetas = FSO.GetFolder(nombre_carpetas)
Set files = carpetas.Files
'para cada archivo, muestro su nombre.
b=0
for each nombre_archivo in files
b=b+1
response.Write "<br>"& b &".-" & nombre_archivo
response.Flush()
next
next
%>
Espero te sirva