Christian,

This is what I was looking for, and I finally figured it out on my own.

Thanks!

James

>

>loFSO = Createobject("Scripting.Filesystemobject")
>loFolder = loFSO.GetFolder("C:\Files")
>FOR EACH loFile IN loFolder.Files
>	?loFile.DateCreated
>	?loFile.Name
>ENDFOR
>

>
>>We have a program that uses ADIR() to get a list of PDFs that have a modification date of 7 prior to the current date. If they are older than 7 days they are deleted. The problem is that the number of files in the directory exceeds the limit of ADIR().
>>
>>I have been searching for an elegant solution, but I have not found it yet. Can anyone help out?
>>
>>Regards,
>>
>>James