 Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
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
|
Shopping
