Detectar archivos de un directorio

[mofo!]

Este codigo te puede servir, pueder ver mas sobre esto en :

http://www.devguru.com/Technologies/vbscript/quickref/filescollection.html

<%
Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject&quot ;)
Set demofolder = filesys.GetFolder("foldername")
Set filecoll = demofolder.Files
For Each fil in filecoll
filist = filist & fil.name
filist = filist & "<BR>"
Next
Response.Write filist
%>

Suerte!