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