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

157787698

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

现在有一批图纸需要将其中的指定字符串替换为另一指定字符串，手工修改太慢了，想借助于工具
+ C& `5 j) q1 l0 O$ |5 `3 M9 T* m
  m* A  [# V) ~- I# i" T请高手提供帮助，谢谢

woaishuijia

1. 
   
2.     Dim objFileSystem As Object, objFolder As Object, objSubFolders As Object, objFiles As Object
   ( x2 M2 p( v8 j6 R
3.     Set objFileSystem = CreateObject("Scripting.FileSystemObject")'文件系统对象
   
4.     Set objFolder = objFileSystem.GetFolder(指定目录的路径字符串)'指定的目录对象
   
5.     Set objSubFolders = objFolder.SubFolders'该目录对象的子目录集合对象
   
6.     Set objFiles = objFolder.Files'该目录对象的文件集合对象
   0 \, @" o/ n, @" [1 M' D

复制代码

  e6 N. C5 ^8 g  X通过上面的代码既可以查找子目录对象,也可以查找文件对象.
7 s7 L5 V  A- g查找文件对象还可以用Dir函数,似乎比使用文件集合对象更方便.

157787698

感谢斑竹回复，下面我用DIR实现了要求的功能：
7 V0 {- J$ X: U9 i# _: U, x
/ r2 c, L. o5 B
/ ~; C+ W8 b" K% @3 nDim Files() As String '文件路径
( |6 }7 _5 @7 a. Y5 }: `Dim Folder() As String '文件夹路径
) N9 {& Q" d1 w; z2 d; N# zDim a, b, c As Long
# [# R0 l+ j1 n! H! FDim sPath As String

+ J' @' s- M0 Z2 f: \  j9 fsPath = Dir(filePath & FileType) '查找第一个文件

Do While Len(sPath) '循环到没有文件为止
! f8 j) n- q' E- P) c   a = a + 1
   ReDim Preserve Files(1 To a)
, a$ ~" C3 h* N. e: V   Files(a) = filePath & sPath '将文件目录和文件名组合,并存放到数组中
   ListBox1.AddItem Files(a) '加入list控件中
, U8 j4 @; I  E5 d  _5 V$ v! ]   sPath = Dir '查找下一个文件
   DoEvents '让出控制权
Loop

3 B% B1 h. \$ @% l; NsPath = Dir(filePath, vbDirectory)  '查找第一个文件夹

7 N$ b0 K5 _7 ?8 {5 ^. {Do While Len(sPath) '循环到没有文件夹为止
   If Left(sPath, 1) <> "." Then '为了防止重复查找
/ P$ e% a6 i4 h7 m* }) n4 D% J! i   If GetAttr(filePath & sPath) And vbDirectory Then  '如果是文件夹则。。。。。。
      b = b + 1
      ReDim Preserve Folder(1 To b)
      Folder(b) = filePath & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
5 O0 \9 [7 n$ G: I+ A( X, |( e   End If
   End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
6 o0 i4 l. ^  d7 yLoop

8 v- m7 _% U! f% ^  s1 qFor c = 1 To b '使用递归方法，遍历所有目录
   SearchFiles Folder(c), FileType
% P; m3 i' v; ~% P6 RNext

157787698

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

woaishuijia

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