[ASP] Problema con script per albero directory

di il
2 risposte

[ASP] Problema con script per albero directory

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

2 Risposte

Devi accedere o registrarti per scrivere nel forum
2 risposte