دستور filesearch در اكسس 2007

[reza792]

با سلام
من در اكسس 2003 از دستور filesearch استفاده ميكنم ولي وقتي برنامه را با اكسس 2007 باز ميكنم به دستور filesearch ارور ميده.
لطفا" راهنمايي فرماييد. با تشكر

[reza792]

با سلام
دستور كامل به شرح ذيل است.
اين دستور در اكسس 2003 كار ميكنه ولي در 2007 ارور ميده.


Dim FS
Dim I
Set FS = Application.FileSearch
With FS
.LookIn = "D:\"
.FileName = "tfsdffsfes*.*"

If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."

Else
MsgBox "There were no files found."
End If
End With