Ciao a tutti,
con il seguente script visualizzo l' albero delle directory...
<%
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
buildTree(Server.MapPath("./"))
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(path).Files
For Each f In fl
Response.Write "<A HREF='"& f.path & "'""><li>" & f.Name & "</A><br>"
Next
Response.Write "</ul>"
buildTree(d.Path)
Next
Response.Write "</ul>"
End Function
%>
però mi dà un problema:
Mi visualizza alcuni file in cartelle sbagliate...
es
se x è directory e contiene x.txt
se y è directory e contiene y.txt
potrei visualizzare
x
y.txt
y
x.txt
Potreste aiutarmi a sistemarlo... ci deve essere un errorino....
GRAZIE MILLE!!!!
CIAO