Scripting.FileSystemObject

'''''get list of files in a given folder

dim fs,f

set fs=CreateObject("Scripting.FileSystemObject")

'''''get c folder

set f=fs.getFolder("c:\")

''''get all files in f (which is c folder)

set flist=f.Files

''''''''read each file in the flist

for each fl in flist

print fl.name

Next