Good choice, that's what I use<G

Bob

"JMay" wrote in message
news:yz60c.15089$TT5.14163@lakeread06...
Thanks Dave and Bob for your input.
I ended up going the FSO route. It works like a charm;
much appreciation -- to each of you.

"Dave Peterson" wrote in message
...
If you search google for:

filesearch flakey OR flaky
with *excel*

You'll find about 20 hits.



http://google.com/groups?as_q=filese...s_ug roup=*ex
cel*
(one line in your browser)

They might not help you at all, but it'll prove that you're not alone!



JMay wrote:

Dave, Yes!, I am using XL2002!!

"Dave Peterson" wrote in message
...
Are you using xl2002?

I've seen a few posts that complain that application.filesearch is
flaky
in that
version (not sure if it was fixed in xl2003???).

The "flakiness" that I've experienced with win98 and xl2002 is
filesearch
missing files. I don't recall it duplicating found files, but that
could
just
mean that I haven't experienced that part of the flakiness.

Maybe reverting to dir()'s or File system object would yield better
results.


JMay wrote:

The following code to perform quite well with the exception that
it
is
Occasionally **Duplicating** certain (several) files in the
listing,
as
follows:
c:\windows\desktop\temp excel formulas\CountIf_Array_Usage.xls
c:\windows\desktop\Temp excel formulas\CountIf_Array_Usage.xls
c:\windows\desktop\temp excel formulas\CountIf_Array_Usage.xls

Any clues as to what's going on and how to eliminate duplication?
TIA,
JMay

Sub listthefiles()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Windows\Desktop\Temp Excel Formulas"
.Filename = "*.xls"
If .Execute 0 Then
ActiveCell = Range("A2")
For I = 1 To .FoundFiles.Count
ActiveCell.FormulaR1C1 = .FoundFiles(I)
ActiveCell.Offset(1, 0).Select
Next I
Else
End If
End With
End Sub

--

Dave Peterson


--

Dave Peterson