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

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

我用如下方法想选择一个目录下的所有.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

我谢斑竹！
页: [1]
查看完整版本: 想选择一个目录下所有.dwg文件？