<%
' 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 "
"
Next
For Each SubCarpeta In Carpeta.SubFolders
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
%>