Mostrare la lista delle directory presenti sul web server
Come fare a mostrare la lista di tutte le directory presenti sul nostro web server?
Ecco uno script che lo fa per noi!
<%
Set fso = CreateObject("Scripting.FileSystemObject")
TheFolder = "d:\webs\mioweb"
Call ShowSubFolders(TheFolder)
Sub ShowFiles(fol)
Set f = fso.GetFolder(fol)
Set fc = f.Files
For Each f1 in fc
Response.Write f1.name
Response.Write "<BR>"
Next
End Sub
Sub ShowSubFolders(fol)
Set f = fso.GetFolder(fol)
Set sf = f.SubFolders
For Each f1 in sf
Response.Write f1.name
Response.Write "<BR>"
ShowSubFolders(f1.name)
ShowFiles(f1.name)
Response.Write "<BR>"
Next
End Sub
%>Per personalizzarlo basta impostare la variabile 'TheFolder' sul percorso da cui vogliamo iniziare a mostrare la lista.
Per maggiori informazioni sui files, si veda
https://www.aspitalia.com/articoli/files.asp
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
