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

157787698

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

现在有一批图纸需要将其中的指定字符串替换为另一指定字符串，手工修改太慢了，想借助于工具

请高手提供帮助，谢谢

woaishuijia

1. 
   
2.     Dim objFileSystem As Object, objFolder As Object, objSubFolders As Object, objFiles As Object
   3 x: M. Z0 t$ l0 _  J2 Z  E( B
3.     Set objFileSystem = CreateObject("Scripting.FileSystemObject")'文件系统对象
     V4 c; J9 J% H2 ]0 R6 i+ F
4.     Set objFolder = objFileSystem.GetFolder(指定目录的路径字符串)'指定的目录对象
   . X" N$ E7 V; D' k
5.     Set objSubFolders = objFolder.SubFolders'该目录对象的子目录集合对象
   
6.     Set objFiles = objFolder.Files'该目录对象的文件集合对象
   

复制代码

通过上面的代码既可以查找子目录对象,也可以查找文件对象.
- C2 r& u2 [9 H" W查找文件对象还可以用Dir函数,似乎比使用文件集合对象更方便.

157787698

8 W' s, M9 ^1 Z4 B( L) y感谢斑竹回复，下面我用DIR实现了要求的功能：

* S8 t) P( Q+ E$ L/ C- U6 \- f; r+ G1 D
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String

, j# R3 ?9 t" {) x- `' s, q9 nsPath = Dir(filePath & FileType) '查找第一个文件

/ [  N4 o* b* b7 KDo While Len(sPath) '循环到没有文件为止
   a = a + 1
* C# [; r' n4 z* l# \# b. L; T9 T   ReDim Preserve Files(1 To a)
$ N  g/ h5 ]' H   Files(a) = filePath & sPath '将文件目录和文件名组合,并存放到数组中
1 x' k& m& y1 P* ~   ListBox1.AddItem Files(a) '加入list控件中
' X( ?# g" `$ z6 q   sPath = Dir '查找下一个文件
   DoEvents '让出控制权
4 A* ?0 F  |! k; ?/ D/ z! |Loop

sPath = Dir(filePath, vbDirectory)  '查找第一个文件夹
# x" ]/ g, i# q. v' f+ m4 t
3 Q' z* e- M' f2 xDo While Len(sPath) '循环到没有文件夹为止
   If Left(sPath, 1) <> "." Then '为了防止重复查找
6 A2 S# P- m! k: D: @- V/ ?. R4 F   If GetAttr(filePath & sPath) And vbDirectory Then  '如果是文件夹则。。。。。。
3 t. ?  R5 X! q, e      b = b + 1
      ReDim Preserve Folder(1 To b)
* k) N' d# [# ^. f      Folder(b) = filePath & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
  C6 w. R& }" C8 q  I. A  x( i   End If
   End If
sPath = Dir '查找下一个文件夹
- y: O  _9 a/ U. I  I* V6 JDoEvents '让出控制权
Loop

For c = 1 To b '使用递归方法，遍历所有目录
   SearchFiles Folder(c), FileType
Next

157787698

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

woaishuijia

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