Listar directorios con ASP

[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.