Filesearch no longer functions

[Guest]

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

 

[Bob Phillips]

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)

 

[Guest]

I think I may just use that, seeing as how this command seems to be dead on
my computer now.