Visualizzare l'albero delle directory

Da un problema posto da Matteo Varotto.
Eccovi mostrato un TIP per visualizzare a video l'albero delle cartelle del vostro spazio web

<%
Dim fso, sRoot
 
Set fso = Server.CreateObject("Scripting.FileSystemObject")
 
sRoot = Server.MapPath("/")
 
buildTree(sRoot)
 
Function buildTree(path)
  Dim dl, d, fl, f
 
  Set dl = fso.GetFolder(path).SubFolders
  Response.Write "<ul>"
 
  For Each d In dl
    Response.Write "<li>" & d.Name & "</li>"
    Response.Write "<ul>"
    Set fl = fso.GetFolder(d.path).Files
 
    For Each f In fl
      Response.Write "<A HREF='"& Replace(f.path, sRoot, "") & "'"">" & _
                     "<li>" & f.Name & "</A><br>"
    Next
   
    Set fl = Nothing
 
    Response.Write "</ul>"
    
    buildTree(d.Path)
  Next
 
  Set dl = Nothing
 
  Response.Write "</ul>"
 
End Function
 
Set fso = Nothing
%>

Grazie a Matteo Varotto per lo spunto di questo TIP.