Listar directorios con ASP

[maestro]

Pues eso, que necesito Listar directorios con ASP para no tener que darle al directorio permisos de visualizacion de ficheros.
Alguna idea?

[alcarji]

Utiliza el objeto FileSystemObject y créate un algoritmo para recorrer (y listar)recursivamente la estructura de directorios de tu dominio.

[AlZuwaga]

Fijate, yo estoy haciendo algo así para mostrar las carpetas:

Código:

<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
	Ruta="/"
Else
	Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders


For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>

<a href="misma_pagina.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></a>

<% Next %>

No se si me equiboqué al hacer el copy&paste... creo que no me saltié nada importante.

[dobled]

ta muy weno el cod. pero komo como se hace para ver las carpetas por q' eso no las muestra??

[dobled]

dazuaga komo traduces ese codigo me quedo la ensalada al pegarlo en DW

[FACE2000]

CODIGO REPARADO:

<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders

For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>
<a href="misma_pagina.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></A><br>
<% Next %>

[dobled]

Deje asi el codigo ,, ahora me muestra los archivos y las carpeta OK

pero no me habre los archivos me dice que no encuentra la ruta

<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders

For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>
<a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></A><br>
<% Next %>

<%
Set archivo = FSO.GetFolder(Server.MapPath(Ruta))
Set subarchivos = archivo.files

For Each subarchivo in subarchivos
SubFNombre = subarchivo.Name
%>
<a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubFNombre %>"><% = SubFNombre %></A><br>
<% Next %>