Luciani Massimiliano
a- a+

Visualizzare l'albero delle directory

Da un problema posto da Matteo Varotto.
Eccovi mostrato un TIP per visualizzare a video l'alberodelle 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 flResponse.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.



Ti potrebbe interessare anche

commenta la notizia

Ci sono 1 commenti
Anonimo
Come posso visualizzare la cartella che si trova su un altro server????
esempio : //10.888.1000.ecc??