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

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

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

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

x

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

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

请高手提供帮助，谢谢

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

9 f4 D1 k: _& X- y4 u# i
Dim objFileSystem As Object, objFolder As Object, objSubFolders As Object, objFiles As Object N2 c& z6 r! `: z) Q
Set objFileSystem = CreateObject("Scripting.FileSystemObject")'文件系统对象- m% x5 V8 M9 z, Y
Set objFolder = objFileSystem.GetFolder(指定目录的路径字符串)'指定的目录对象2 \2 v7 @1 Z& ? I: }; S4 I
Set objSubFolders = objFolder.SubFolders'该目录对象的子目录集合对象9 {* L% \% |$ h5 b( h9 B9 Y6 ?" ?& K
Set objFiles = objFolder.Files'该目录对象的文件集合对象6 u- `* T3 c& V& v; y; }

复制代码

通过上面的代码既可以查找子目录对象,也可以查找文件对象.
查找文件对象还可以用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遍历指定目录？

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

浏览过的版块