Westmans funkar bra, men jag skulle vilja modifiera den lite:
Kod:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
*if fso.GetExtensionName(f1) = "jpg" then response.write(f1.name & "<br>" & vbcrlf)
Next