Ecco il codice per navigare il contenuto di una cartella... ovviamente và riadattato alle necessità (questo non fà altro che stampare a video il nome dei file.)
dim FileSystemObject, FileSystemObjectFiles
set FileSystemObject = server.createobject("scripting.filesystemobject")
set FileSystemObjectFiles = FileSystemObject.getfolder(server.mappath(ImageDirectory))
dim item, ItemArray
for each item in FileSystemObjectFiles.files
Response.Write item.name
next