Elencare tutti i file presenti in una cartella - Script ASP

L'oggetto File System Object (FSO) ci mette a disposizione una serie di istruzioni che possiamo utilizzare per elencare il nome o altre informazioni di tutti i file presenti in una determinata cartella del server.

Vediamo un esempio concreto.

<% 

Dim objFso, objFolder, objFiles, strFolder, strFile 
strPath = "cartella/" 

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

For Each strFile in objFiles
Response.Write(strFile.name & "<br />") 
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%> 

Nella variabile strFolder memorizziamo il percorso della cartella che intendiamo leggere.
Nelle righe successive valorizziamo l'oggetto File System Object e con il metodo .GetFolder dell'oggetto richiamiamo la cartella desiderata.

Infine, con la proprietà .Files dell'oggetto cartella, otteniamo una collezione di oggetti dove ciascun elemento corrisponde ad un file che possiamo così scorrere con un normale ciclo For Each ... Next.

All'interno del ciclo decidiamo con la sintassi seguente di stampare il nome del file.

<% 

Response.Write(strFile.name & "<br />") 

%> 

Volendo stampare il nome del file seguito dal suo peso in byte possiamo scrivere il seguente codice.

<% 

Response.Write(strFile.name & " - " & strFile.Size & "<br />") 

%>