Listar ficheros con extensión JPG

[koaxial]

Gracias por la respuesta, pero... ¿Cómo lo implemento?

Ahora mismo estoy listando los ficheros así:

Dim objFSO
Dim objFile
Dim objFolder
Dim sMapPath
Set objFSO = CreateObject("Scripting.FileSystemObject") sMapPath = "C:\RUTA"
Set objFolder = objFSO.GetFolder(sMapPath)

For Each objFile In objFolder.Files
Response.Write objFile.Name
Next