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

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

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

"Bob Phillips" wrote:

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