:: byluciani.com ::  
[ ASP ]
[ Guestbook ]
[ Forum ]
 [ Homepage ]
 [ Preferiti ]
 [ Ricerca ASP ]
Home»ASP
 

Germania 2006
 
CAMPIONI DEL MONDO
1(5)ITA:FRA1(3)
 


Calendario
Auguri ai nati sotto il segno
della Vergine
Giovedì 9 Settembre 2010
Oggi ricorre:
S. Doroteo martire
 

Statistiche
Oggi il numero delle visite è
71
Ieri il numero delle visite è stato
54
Il numero totale delle visite è
256057
Ultimo accesso
09/09/2010 22:23:19
 

Link utili
www.aruba.it
www.aspcode.it
www.webmasterpoint.org
www.lukeonweb.net
www.acerbi.re.it
www.moduli.it
www.dotnetside.org
www.aspcenter.net
www.morpheusweb.it
www.trenoincasa.it
 

Contatti
Webmaster
Forum
Collabora
 

Credits
 

RSS di byluciani
Teoria
Articoli
Tips&Tricks
Download
 

Uplink
 

 
Collabora con byluciani.com

Hai del codice ASP che vorresti condividere, vorresti veder pubblicato qualche tuo articolo o tutorial sull'ASP?
Bene! byluciani.com sarà ben lieto di ospitare il tuo lavoro. Manda il tuo materiale a COLLABORA indicando le tue generalità (Nome, Cognome, E-Mail, sito Web, Città, data di nascita e se vuoi una foto).
Il tutto è "no profit", condividi le tue conoscenze per far crescere i giovani programmatori del Web.


Elenco collaboratori di byluciani.com


Donazioni

Hai trovato utili i contenuti di byluciani.com? Senti il piacere di contraccambiare in qualche maniera?
Puoi farlo facendo una donazione attraverso la wishlist raggiungibile al seguente indirizzo:

byluciani.com - WISHLIST


Risorse ASP/VBScript
 
Tips & Tricks
 
« Precedente Seguente »
Visualizzare l`albero delle directory
Autore: Luciani Massimiliano Letto: 66309 volte Giudizio:
 
 

Da un problema posto da Matteo Varotto in questo thread
http://www.byluciani.com/forum/link.asp?TOPIC_ID=119
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.

 
30/06/2003
 
Formato adatto alla stampa

Esprimi un giudizio
1 2 3 4 5

 




 [ Homepage ]
 [ Preferiti ]
 [ Ricerca ASP ]
[ ASP ]
[ Guestbook ]
[ Forum ]
byluciani.com - CopyFree 2001-2010