FileSearch

[Stephen]

I can't get FileSearch to return a correct file search.
Application.FileSearch.FoundFiles.Count is always zero.

Does the Application.FileSearch no longer work in Excel
VB 2002?


Tx,

Stephen

 

[Gord Dibben]

Stephen

Perhaps your search criterion(a) is/are not correct.

This works for me.

Sub file_find()
Set fs = Application.FileSearch
With fs
.lookin = "e:\program files\microsoft office\exceldata"
.Filename = "*.xls"
'or "*searchstring*"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
Else
MsgBox "There were no files found."
End If
End With
End Sub

Gord Dibben Excel MVP

 

[Guest]

This works for me in Excel 97, but not in 2002 (SP2).
Any other ideas?

 

[Norman Jones]

Hi Stephen,

Look at this thread:

http://tinyurl.com/3gwog

 

[Dave Peterson]

Does changing this:
..Filename = "*.xls"
to
..Filename = ".xls"

help.

By the way, there have been a few posts that say that .filesearch is flakey in
xl2002. It sometimes doesn't find all the files. Although, I've never seen it
miss all of them.

 

[Myrna Larson]

I have.

Does changing this:
.Filename = "*.xls"
to
.Filename = ".xls"

help.

By the way, there have been a few posts that say that .filesearch is flakey in
xl2002. It sometimes doesn't find all the files. Although, I've never seen it
miss all of them.

 

[Vasant Nanavati]

Hi Myrna:

Nice of you to drop by <g> ... where have you been?

--

Regards,

Vasant.

I have.

 

[Ron de Bruin]

Hi Myrna

Do you know if there are problems in 2003 also ?


--
Regards Ron de Bruin
http://www.rondebruin.nl

I have.

 

[Dave Peterson]

I clicked on that link that Norman Jones posted.

It brought back memories of a previous thread that may look familiar. <bg>