Dall'archivio script > Classic ASP

Mostrare la lista delle directory presenti sul web server

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Coding, Tips,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi