Elenco file

Come leggere il contenuto di una cartella è già stato trattato in altre occasioni. In questa situazione introduciamo una variante per individuare solo i file con una determinata estensione da noi definita.

<%

‘ Dichiara le variabili necessarie

Dim objFso, objFolder, objFiles

Dim strFolder, strFile, strPath, strExt

‘ Definisci il percorso della cartella da leggere

strPath = “cartella/”

strExt = “.asp”

‘ Crea gli oggetti FSO necessari

Set objFso = Server.createObject(“Scripting.FileSystemObject”)

Set objFolder = objFso.GetFolder(Server.MapPath(strPath))

Set objFiles = objFolder.Files

‘ Scorri tutti i file nella cartella

for each strFile in objFiles

‘ Controlla l’estensione

if Right(strFile.name, Len(strExt)) = strExt then

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

end if

next

‘ Distruggi oggetti e libera risorse

Set objFso = Nothing

Set objFolder = Nothing

Set objFiles = Nothing

%>

Le variabili strPath e strExt contengono rispettivamente il percorso della cartella da leggere ed il tipo di estensione da considerare. Successivamente vengono istanziati gli oggetti File System Object necessari e viene eseguito un ciclo su ciascun file contenuto nella cartella. Nella parte centrale viene controllata l’estensione del file, confrontando la parte finale e se corrispondente viene stampato il nome del file

I Video di HTML.it

Baasbox, un back-end semplice e open source

Claudio Tesoriero ci parla di Baasbox e di come questa tecnologia offra un back-end gratuito, open source e  ricco di […]