AUTOCAD如何利VBA遍历指定目录？

157787698

如何利VBA遍历指定目录及其所有子目录？

( Y, k& q( ?( ~* d( L* w现在有一批图纸需要将其中的指定字符串替换为另一指定字符串，手工修改太慢了，想借助于工具
/ t* a) `! q0 W2 }
4 c$ b; ]: m0 s5 C- ]( f) z5 }+ {4 p  Y请高手提供帮助，谢谢

woaishuijia

1. 
   
2.     Dim objFileSystem As Object, objFolder As Object, objSubFolders As Object, objFiles As Object
   3 h0 T( I6 [7 X4 x4 ~- I/ M
3.     Set objFileSystem = CreateObject("Scripting.FileSystemObject")'文件系统对象
   # X3 R4 X1 A  R6 k% ^* b. V8 a
4.     Set objFolder = objFileSystem.GetFolder(指定目录的路径字符串)'指定的目录对象
   
5.     Set objSubFolders = objFolder.SubFolders'该目录对象的子目录集合对象
   + _) |. U4 o1 c$ A) }
6.     Set objFiles = objFolder.Files'该目录对象的文件集合对象
   

复制代码

通过上面的代码既可以查找子目录对象,也可以查找文件对象.
查找文件对象还可以用Dir函数,似乎比使用文件集合对象更方便.

157787698

$ I9 n. g# D; E
感谢斑竹回复，下面我用DIR实现了要求的功能：

+ E  J3 g' h1 s, R. u2 H+ a. `; y
Dim Files() As String '文件路径
% M* _; w$ U. \8 a0 }. x5 FDim Folder() As String '文件夹路径
Dim a, b, c As Long
* |6 B: U& v- q4 E1 e6 \4 lDim sPath As String

9 h, v3 l6 V0 L' Z+ psPath = Dir(filePath & FileType) '查找第一个文件

) ~9 {; q0 A8 k$ j+ y+ RDo While Len(sPath) '循环到没有文件为止
9 Q. U+ T! s' G- m1 r: N9 {9 w   a = a + 1
   ReDim Preserve Files(1 To a)
  i# G- R; r. w   Files(a) = filePath & sPath '将文件目录和文件名组合,并存放到数组中
+ z& w0 P5 {9 c7 o8 t: p   ListBox1.AddItem Files(a) '加入list控件中
3 s2 k: `: _9 v: ]* d   sPath = Dir '查找下一个文件
   DoEvents '让出控制权
) O7 _) \% [: P( \! O! C, uLoop
( Q) F) p+ N- `; F. p2 T
sPath = Dir(filePath, vbDirectory)  '查找第一个文件夹
* K* O4 x3 B( M
" e% R, E7 u* t2 v: s; G3 F( [Do While Len(sPath) '循环到没有文件夹为止
( [/ w3 s) y( x! G, H   If Left(sPath, 1) <> "." Then '为了防止重复查找
- |3 B  N3 n( o9 B5 q1 r   If GetAttr(filePath & sPath) And vbDirectory Then  '如果是文件夹则。。。。。。
7 [4 e$ ]3 M- H% r; w5 c/ p8 q0 O      b = b + 1
7 h* b, m( Q8 j0 {( x& h      ReDim Preserve Folder(1 To b)
      Folder(b) = filePath & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
   End If
   End If
) N2 [2 v- h# g1 c$ G' E4 isPath = Dir '查找下一个文件夹
4 e# k* [5 W2 l0 B- K; z. P8 G' QDoEvents '让出控制权
8 c5 ]7 X/ {: a* J$ O- YLoop
' B, \6 _+ F" ~5 f9 M; ~
. A3 l$ u1 y9 RFor c = 1 To b '使用递归方法，遍历所有目录
   SearchFiles Folder(c), FileType
Next

157787698

但是如何遍历图纸中的所有Text和Mtext,然后将指定的文字替换为另外的文字？

woaishuijia

这就有点麻烦了.CAD的Mtext对象包含格式符,用VBA编程,就必须去除这些格式符得到"纯净"的字符串然后才能替换.