Narrow Search Results in Access

Tech-Archive recommends: Fix windows errors by optimizing your registry

I've got a chunck of code written that will search for all the .xls files in
a certain folder. That parts great. What isn't great is that the program
searches for ALL .xls files when I only need ones added in the last week or
so. While the .LastModified command works in Excel it will NOT work in Access
and instead of bringing up recent files it brings up all of them. How do I
get this command to work in Access?

With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings\i62793\Desktop\Rough Drafts\MY
EXPERIMENTS\Cast Report Examples"
.SearchSubFolders = True
.LastModified = msoLastModifiedLastWeek
FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
strLocation = (.FoundFiles(i))

....
.

Quantcast