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

china-hz

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

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

china-hz

我谢斑竹！