<div>
It seems strange that 2003 and 2007 don't support the filesearch and looking at <a href="http://support.microsoft.com/kb/870962/en-us" rel="ugc nofollow">http://support.microsoft.com/kb/870962/en-us</a>&nbsp;it sould appear that this has been moved to Microsoft Office.<br />
<br />
Cheers, Andrew
</div>


It seems strange that 2003 and 2007 don't support the filesearch and looking at http://support.microsoft.com/kb/870962/en-us [http://support.microsoft.com/kb/870962/en-us] it sould appear that this has been moved to Microsoft Office.

Cheers, Andrew

<div>
<div class="content wysiwyg-content">
Hi,<br />
My Access2000 app &quot;expiry system&quot; had the following code which won't work in 2003/2007 - they don't support .FileSearch.<br />
Please could someone show me a workaround?<br />
Thanks all<br />
--------------------------<wbr />----------<wbr />---<br />
With Application.FileSearch<br />
.NewSearch<br />
.LookIn = &quot;c:\&quot;<br />
.filename = &quot;rctrits09.txt&quot;<br />
If .Execute() &gt;&nbsp;0 Then<br />
GoTo expiry<br />
End If<br />
End With
</div>
</div>


Hi,
My Access2000 app "expiry system" had the following code which won't work in 2003/2007 - they don't support .FileSearch.
Please could someone show me a workaround?
Thanks all
---------------------------------------
With Application.FileSearch
.NewSearch
.LookIn = "c:\"
.filename = "rctrits09.txt"
If .Execute() > 0 Then
GoTo expiry
End If
End With

Access FileSearch Workaround

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.