Esplora il contenuto di una cartella
> Scritto da Matteo Gentile il giorno 05/02/2003

  Per esplorare i file contenuti all'interno di una cartella sfruttiamo una classe molto importante che ASP ci mette a disposizione, il FileSystemObject che ci è fornita dall'oggetto Scripting.
Ecco come si crea: 


Set fileCreate = CreateObject("Scripting.FileSystemObject")
Poi grazie al metodo MapPath dell'oggetto Server andiamo a recuperare il percorso fisico della cartella da esporare: 
Set fileGet = fileCreate.GetFolder(Server.MapPath("/cartella"))
A questo punto andiamo a recuperare tutti i file presenti nella cartella: 
Set files = fileGet.Files
Ora non resta che mostrare il nome dei file su schermo. Li mettiamo all'interno di link cliccabili:
For Each file in files 
response.write "<A HREF=' " 
response.write file.name 
response.write " '>" 
response.write file.name 
response.write "</A> " & file.size & " Kb 
" 
Next
Set fileCreate=Nothing 
Set fileGet=Nothing 
Set files=Nothing 
%>
Se voglio anche contare quanti sono devo inserire prima del For la riga:
numfile = 0
All'interno del For devo inserire la riga: 
numfile = (numfile + 1)
E dopo il Next la riga: 
Response.Write ("<br>Numero di file presenti : " & numfile)
Se volessimo anche una lista delle sottocartelle contenute nella cartella scelta si aggiunge: 
numFolder=0 
Set subFolder= fileGet.SubFolders 
Response.Write("<b> Lista cartelle:</b><br>") 
For Each fileGet in subFolder 
numFolder= (numFolder+1) 
response.write fileGet.name 
response.write " " & fileGet.size & " Kb <br>" 
Next 
If (numfolder=0) Then 
Response.write("<br>Non sono presenti sottocartelle") 
Else 
Response.Write("<br>Sottocartelle presenti: " & numFolder) 
End IF


--------------------------------------------------------------------------------------------
AZPoint.net - http://www.azpoint.net
 Vietata ogni forma di duplicazione