FSO recursivo... mi cabeza está por explotaaaarrrrrrrr

[u_goldman]

Pues tu código no me dió ningún error mas que un script timeout je je je, le cambié el path y lo utilicé en una carpeta, con menos directorios y subdirectorios...funcionó "josha"

Código:

Sub CrearArbol(Ruta, Nivel)
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	Set Carpeta = FSO.GetFolder(Ruta)
	Set Subcarpetas = Carpeta.SubFolders
		For Each SubCarpeta in Subcarpetas
			Response.Write Replace(Space(Nivel), " ", "----")
			Response.Write Subcarpeta.Name & "<br>"
				CrearArbol Subcarpeta.Path, Nivel + 1
			'On error resume next
			'Response.Write Replace(Space(Nivel), " ", "----")
			'If Error.Number <> 0 Then Response.Write "<b>Acá esta cagado:</b> " & Err.Number & " - " & Err.Description & "<br>"
		Next
End Sub 'CrearArbol
%>

<%
 CrearArbol Server.MapPath(".") & "\",0 
 %>