Ben,

I have all sorts of problems with FileSearch, so much that I gave up and
started to use FileSystemobject instead.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"ben" wrote in message
...
Here is my code


Sub test2()
With Application.FileSearch
.NewSearch
.LookIn = "C:\ClipArt"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
End With
end with


after i run this i put all the found file names into a textfile, or try
to,
this code does ABSOLUTELY NOTHING. the starting directory does exist,
changeing the directory does NOTHING. there are some eight thousand files
in
that directory, it worked fine the first time I ran the code. I changed
the
directory to lookin and nothing not a thing. I rebooted my computer and
ran
it again, nothing happened. I put in a different workbook, nothing
happened,
I can not figure out why it ran once then just stopped no matter what i
did,
anyone have some thoughts for my Manic Depressive code up there?
Ben