在office 2007中增加FileSearch对象[2009.05.23更新]

三戒

我们知道office 2007中已经将FileSearch对象取消，这对于很多喜欢用FileSearch对象遍历某个文件夹的所有office文件，是非常不方便的。
为了能实现类似与office 2003中的FileSearch对象所提供的功能，我编写了一个FileSearch类，可以模拟FileSearch对象所提供的一些基本方法和属性：
如：
LookIn 属性      
FileType 属性        
SearchSubFolders 属性        
Execute 方法         
FoundFiles属性
如图1所示：
方法和属性介绍详见3楼
2008年12月08增加了按文件名排序的功能，并优化了代码，程序更简介可靠。
2008年12月15日支持遍历金山WPS系列文件格式
2009年3月20日更新，将FoundFiles集合的属性改为只读
2009年5月23日更新，优化注册和引用dll的方式
见21楼的附件





[ 本帖最后由 三戒 于 2009-5-23 16:10 编辑 ]

三戒

另一项功能是：
office 2007中设置工作表的零值显示非常不方便，为了能改善这个功能，我在菜单中增加了零值的显示选项。如图2所示，他能根据工作表的零值显示来自动变动显示，非常方便于零值显示的设置。

[ 本帖最后由 三戒 于 2008-12-15 13:06 编辑 ]

三戒

• 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 集合对象，该对象包括一次查找操作中找到的所有文件的文件名。只读。

[ 本帖最后由 三戒 于 2008-12-15 13:00 编辑 ]

三戒

请各位朋友多提宝贵意见，以使程序更完善！

三戒

2007年11月16日
增加了FileName属性，可以查找具体某个文件，支持通配符*和？，如图所示

[ 本帖最后由 三戒 于 2008-12-15 13:02 编辑 ]

三戒

增加了文件类型：
支持：
AutoCADs
CorelDRAW
ExcelWorkbooks
PowerPointPPT
WordDocuments

[ 本帖最后由 三戒 于 2008-12-15 13:03 编辑 ]

wangminbai

不错，支持一下

三戒

最新程序见10楼

[ 本帖最后由 三戒 于 2008-12-15 13:03 编辑 ]

zjxia889

看看,要到办公室才用2007

海儿无量

哦，楼主强的。帮你顶上去，我想会有很多人喜欢的