A quick post to let people know something I discovered to avoid the "Run-time Error '5'. Invalid procedure call or argument." at the .FileName = "*.*" line in Application.FileSearch - replace the first asterisk with a slash:
.FileName = "/.*"
This problem only seems to occur with the Word97/Windows2000 combination, however using "/.*" works fine using Word97 with Windows2000 or NT.