si che si può fare, con FileSystemObject.
codice:
directory= "/immagini" ' <== cartella dove cercare le immagini
set fso = server.createobject("Scripting.filesystemObject")
sub getfiles(strpath)
set f = fso.getfolder(server.mappath(strpath))
set fc = f.files
response.write("<ul>")
for each f1 in fc
if lcase(right(f1.name,3)) = "jpg" then
response.write("[*][img] & strpath & [/img]" & f1.name & "")
end if
next
response.write("[/list]")
set fc = nothing
set f = nothing
end sub
call getfiles(directory)
set fso = nothing