Try it without the * like .xls

If this not work use the Dir function
See the VBA help for more information

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jarek" wrote in message ...

Hello,
I'm trying to use Application.FileSearch method to find files in a
given directory, using '*' as wildcard. But the macro below stops at
line .FileName="*.xls" (error '5' - invalid parameter)
I've tried to find different types of files, but some extensions in
FileName allways causes error (*.xls, *.xla, *.rar, *.zip), some
extensions sometimes (*.dbf, *.txt), some extensions are OK (*.doc,
*.pps).
What am I doing wrong?
W'2000, XL'97

Sorry for my English.
Many thanks
Jarek

Sub ListFiles()
With Application.FileSearch
NewSearch
LookIn = "C:\Data\Excel"
SearchSubFolders = False
FileName = "*.xls"
Execute
End With

cnt = Application.FileSearch.FoundFiles.Count
For i = 1 To cnt
MsgBox Application.FileSearch.FoundFiles.Item(i)
Next i
End Sub


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/