想选择一个目录下所有.dwg文件？

china-hz · 发表于 2003-10-5 18:17:00

我用如下方法想选择一个目录下的所有.dwg文件，但所选择的个数有时比实际个数多，最多时会多一倍，不知为什么？
  dwgfile = Dir(dwgpath & "*.dwg")
blvert = True
Do While blvert
dwgfile = Dir()
      If Len(dwgfile) = 0 Then '所有文件均已选择结束
         MsgBox "恭喜你，该目录下的所有.dwg文件均已选择。", vbInformation, "提示"
         blvert = False
      Else
         若干语句
      End If
Loop

mccad · 发表于 2003-10-5 19:48:00

你的代码只会少一个文件，怎么会多出一倍呢？
你可以把保存在一个数组中，然后看看数组中文件的数量及文件名。
可参考二次开发栏目中的文章：
http://www.mjtd.com/a2/list.asp?id=357

china-hz · 发表于 2003-10-6 10:05:00

我谢斑竹！

想选择一个目录下所有.dwg文件？

发表回复

精选推荐

浏览过的版块