A ver qué te parece esto:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
</head>
<body>
<H1>Listado de archivos</H1>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath("./"))
Set SubCarpetas = Carpeta.SubFolders
Set FSO = Nothing
Response.Write "<ul>"
Count = 0
For Each SubCarpeta In SubCarpetas
Count = Count + 1
Response.Write "<li>"
Response.Write "<a href=""#"" onClick=""document.getElementById('"&SubCarpeta.Name&"').style.display=''"">"
Response.Write SubCarpeta.Name
Response.Write "</a>"
Response.Write "<div id=""" & SubCarpeta.Name & """ style=""display:'none';"">"
'*************************************
'Bucle para mostrar docuementos
'*************************************
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(SubCarpeta.Path).Files
Set FSO = Nothing
Response.Write "<ul>"
Count = 0
For Each File In Files
Count = Count + 1
Response.Write "<li>"
Response.Write "<a href=""" & SubCarpeta.Path & "/" & File.Name & """>"
Response.Write File.Name
Response.Write "</a>"
Response.Write "<br>"
Response.Write "Tamaño: " & File.Size & ". Creado: " & File.DateCreated & ". Modificado: " & File.DateLastModified & "."
Response.Write "</li>"
Next
Response.Write "</ul>"
Set File = Nothing
Set Files = Nothing
'*************************************
'Fin del bucle
'*************************************
Response.Write "</div>"
Response.Write "</li>"
Next
Response.Write "</ul>"
Set SubCarpeta = Nothing
Set SubFolders = Nothing
%>
</body>
</html>
Pero te aviso de que sólo te va a reconocer un nivel de directorios, es decir, la página donde tengas ese código sólo te va a reconocer las carpetas que estén en ese mismo nivel.
Ya me contarás.
Un saludo.