FileSearch对象是Office系统在2002版本新增加的对象。用FileSearch 属性可返回 FileSearch
对象，可实现查找指定文件并显示找到的文件数及每个找到的文件的标题。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders =
True
.FileName = "Run"
.MatchTextExactly = True
.FileType =
msoFileTypeAllFiles
End With
使用注意:
需要引用Microsoft Office 10.0 Object Library 或更高版本
