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