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

157787698 · 发表于 2010-5-20 09:21:20

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

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

请高手提供帮助，谢谢

woaishuijia · 发表于 2010-5-20 11:17:16

% s) T1 `- W! Q+ ^8 B
Dim objFileSystem As Object, objFolder As Object, objSubFolders As Object, objFiles As Object& f6 I! S+ A% a) O$ O
Set objFileSystem = CreateObject("Scripting.FileSystemObject")'文件系统对象, ^/ W- H2 _8 ` m7 Q8 `' h4 b3 [6 A
Set objFolder = objFileSystem.GetFolder(指定目录的路径字符串)'指定的目录对象5 R; I5 ~7 g* Q3 d# `4 p6 c
Set objSubFolders = objFolder.SubFolders'该目录对象的子目录集合对象
9 t5 q* P) X: `4 {& Y: Y* A+ i
Set objFiles = objFolder.Files'该目录对象的文件集合对象/ J( {6 m6 j% p2 D) }

复制代码

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

157787698 · 发表于 2010-5-20 12:28:36

本帖最后由 157787698 于 2010-5-20 12:30 编辑

感谢斑竹回复，下面我用DIR实现了要求的功能：

Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String

sPath = Dir(filePath & FileType) '查找第一个文件

Do While Len(sPath) '循环到没有文件为止
a = a + 1
ReDim Preserve Files(1 To a)
Files(a) = filePath & sPath '将文件目录和文件名组合,并存放到数组中
ListBox1.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop

sPath = Dir(filePath, vbDirectory)  '查找第一个文件夹

Do While Len(sPath) '循环到没有文件夹为止
If Left(sPath, 1) <> "." Then '为了防止重复查找
If GetAttr(filePath & sPath) And vbDirectory Then  '如果是文件夹则。。。。。。
   b = b + 1
   ReDim Preserve Folder(1 To b)
   Folder(b) = filePath & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
Loop

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

157787698 · 发表于 2010-5-20 12:31:18

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

woaishuijia · 发表于 2010-5-20 17:37:46

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

		自动登录	找回密码
密码			注册

通知

[求助] AUTOCAD如何利VBA遍历指定目录？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块