Application file search error in Office XP

[Guest]

I have this vba and it will not result in the file that
I've searching. I'ved used this code in MS Excel 97 and
worked fine. Recently I upgraded to Office XP (SP2) and
got the error.


Dim fsoFileSearch As FileSearch
Set fsoFileSearch = Application.FileSearch

With fsoFileSearch
.NewSearch
.LookIn = "c:\Pres\Reports"
.Filename = "*.xls"
.SearchSubFolders = False
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderDescending) > 0 Then