Después de mucho luchar con una maldita función para listar toooodas las carpetas y subcarpetas en una estructura de árbol, me está dando un error que puedo solucionar colocando "on error resume next"... pero no quiero. Lo que quiero es que no de ningún error.
La función es ésta:
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
%>
<% Call CrearArbol(Request.ServerVariables("APPL_PHYSICAL_PATH"),0) %>
La onda es que da error cuando termina de recorrer las carpetas/subcarpetas y no encuentra ninguna más para continuar. Con el "on error resume next" continúa la ejecución hasta el final, pero como dije no deseo que exista el "on error.." en el código.
Se les ocurre cómo modificarla para que funcione bien?
Ya no puedo pensar más
