Something

<%
' Da formato al nombre de un fichero
Function FormatearNombre(Nombre)
    FormatearNombre = Replace(Nombre, "_", " ")
End Function

' Recorre los ficheros de una carpeta
Sub ListarCarpetas(Nivel, Ruta, VerTitulo)  
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))  
	For Each SubCarpeta In Carpeta.SubFolders  
		Response.Write "<div  style=""padding-left: " & 25*Nivel & "px;"">"
		Response.Write "<a href=""explorador.asp?ruta="  
		Response.Write Ruta
		Response.Write "/"
		Response.Write SubCarpeta.Name
		Response.Write """ class=""enlace"">"
		Response.Write "<img src=""/_img/ico_carpeta_mini.gif"">&nbsp;&nbsp;"  
		Response.Write FormatearNombre(SubCarpeta.Name)  
		Response.Write "</a></div><br>"  
        ListarCarpetas Nivel + 1, Ruta & "/" & SubCarpeta.Name, True
	Next  
Set Carpeta = Nothing  
End Sub

Set FSO = CreateObject("Scripting.FileSystemObject")
ListarCarpetas 0, "maxan" , False
Set FSO = Nothing
%>