File search routine

[TC]

I don't have Acess here to check, but that code looks ok to me. Are you 100%
positive that this is *exactly* the code you are running, and the error
occurs on the line you have stated?

TC

 

[Miguel Velez]

I'm trying to search the hard disk for .mdb files. I've
copies some code from the Help file but every time I run
it I get the following error: "Run-time error '5'. Invalid
procedure call or argument".

The code is:

Dim i As Integer

With Application.FileSearch
.LookIn = "C:\"
.FileName = "*.mdb"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

It seems it doesn't like the .FileName = "*.mdb"
statement. Can anybody help?

Miguel

 

[Cheryl Fischer]

I replaced the following line in your code:

.FileName = "*.mdb"

with this line:

.FileType = msoFileTypeDatabases

and the code worked properly. Note, also, that you will need to set a
reference to the Microsoft Office xx.x Object Library (where xx.x is your
particular version of Office).

hth,