Many years ago I downloaded a sample database written by Arvin Meyer that
was a Document Manager.  I modified it quite a bit, adding keywords so
people could narrow their searches for files, but left the original code
where it searches for all files in a selected folder and sub-folders as it
was.  There was also a feature to look for files that had been deleted.  I
upgraded it from older versions through Office 2003, then tried to run it
today in Access 2007 and the function looking for deleted files errored out
saying:
You entered an expression that has an invalid reference to the property
FileSearch.
The code seems to get stuck on
Set fs = Application.FileSearch

and is used for this:
   If Len(Dir(rs!FilePath & rs!FileName)) = 0 Then          ' the file
isn't there
       rs.Edit
       rs!FileMoved = True
       rs.Update
   End If

It seems that Access 2007 no longer supports Application.FileSearch.
What is the work-around, or new code to do this?
Thanks,
Mich