在AutoCAD中增加Fileseach对象

mobuli

4 T* l. Q) \8 u; n& f  E/ A
一、问题的由来
# n# {3 k& S# k  g; \我们知道在Microsoft Office Excel 2003的VBA中有一个FileSearch对象，利用FileSearch对象可以很方便的遍历某个目录下的所有Excel文件，以批量修改或打印Excel文件，如图1所示。

$ L8 j' E3 C0 y2 P& Y6 h- M3 C/ l( V
9 ?. }) Z2 L( y; H1 J& u在AutoCAD中没有类似的功能。我写了一个glFileseach类，可以模拟Excel的Fileseach对象所提供的一些功能，用于遍历AutoACD应用程序所支持的文件。应用它可以方便的批量修改和打印AutoACD文件，如图2所示。


二、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所示。
2 Q" E% U% D4 Q. uSearchFolders属性：确定调用 FileSearch 对象的 Execute 方法时是否搜索子文件夹。
: ~( b# H- v6 p5 ?  t4 _4 u3 w/ F% TExecute 方法：开始对指定文件的搜索。返回一个 Long 类型，如果没有找到文件，则返回零 (0)，如果找到一个或多个文件，则返回一个正数
FoundFiles 属性：返回一个 FoundFiles 集合对象，该对象包括一次查找操作中找到的所有文件的文件名。只读。
& |: H. d9 t* C6 o
: U- o' [  C8 d8 ?+ B, P( ]
9 D) M" j/ X7 G6 i) r$ j9 L0 }
" O  W. P6 W' G8 j
8 O- E! P2 H4 P1 F- \
6 w* R; u6 P/ n/ ^四、其他说明的
2 N3 y: j# k/ A% l! Y$ F, z由于类的可移植性强，所以glFileseach类可以用于其他支持VBA的程序中，如Microsoft Office 2007、CorelDRAW中。有兴趣的朋友可以使用一下，欢迎你多提宝贵的建议。
增加了文件类型：
4 q) {/ J7 j/ ~; w8 V5 l" d% ~支持：
5 @* j4 T8 y0 ~* JAutoCADs
$ J- z( ^1 x- E. q( b% |0 @, GCorelDRAW
' w/ b* l# W; lExcelWorkbooks
+ V3 t4 V0 e: y2 ]) ]. lPowerPointPPT
9 R4 K; J* p( g$ I! Z; i  s- RWordDocuments
, r/ c4 f; [6 I  s可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word等应用程序生成的文件
3 e2 ?; M+ ]; ]$ i! Q) M! e, x
最新版，请测试！

峻辉

呵呵，下下来试试，还不知道怎么用呢!