我们知道office 2007中已经将FileSearch对象取消，这对于很多喜欢用FileSearch对象遍历某个文件夹的所有office文件，是非常不方便的。为了能实现类似与office 2003中的FileSearch对象所提供的功能，我编写了一个FileSearch类，可以模拟FileSearch对象所提供的一些基本方法和属性：如：LookIn 属性 FileType 属性 SearchSubFolders 属性 Execute 方法 FoundFiles属性等
如图1所示
Fileseach类的属性和方法简介
LookIn 属性：返回或设置在指定的文件搜索过程中要搜索的文件夹。
String 类型，可读写。
FileName 属性：返回或设置文件搜索过程中要查找的文件名。文件名中可以包含
*（星号）或
?（问号）通配符。问号通配符可以匹配任意一个单个字符。如键入“
gr?y”可以匹配“
gray”和“
grey”。星号通配符可以匹配任意个字符。如键入“
*.txt”可以查找到所有带
.TXT 扩展名的文件。
String类型，可读写。
FileType 属性：返回或设置文件搜索过程中要查找的文件类型。可读写，支持：
AutoCADs、
CorelDRAW、
ExcelWorkbooks、
PowerPointPPT和
WordDocuments、金山公司的WPS表格工作簿、WPS演示演示文稿和WPS文字文档。可以遍历
AutoCAD、
CorelDRAW 、
Exce、
PowerPoint、
Word和金山公司Office系列软件等应用程序生成的文件。如图
3所示。
SearchFolders属性：确定调用
FileSearch 对象的
Execute 方法时是否搜索子文件夹。
Execute 方法：开始对指定文件的搜索。返回一个
Long 类型，如果没有找到文件，则返回零
(0)，如果找到一个或多个文件，则返回一个正数。
FoundFiles 属性：返回一个
FoundFiles 集合对象，该对象包括一次查找操作中找到的所有文件的文件名。只读。
