I got some help here and came up with this
Option Explicit
Dim fs, f, fc, fldr, fldrname, age
fldrname = "C:\Documents and Settings\cornettd\My Documents\Test\"
set fs = CreateObject("Scripting.FileSystemObject")
set fldr = fs.getfolder(fldrname)
set fc = fldr.files
for each f in fc...