请问vbs对像重复循环的问题，指高手指教

nameld001

哪位帮测试一下这个为什么，有时执行2次，有时执行3次，
1、前提条件是在d:\cg\下放两个dwg图形，然加载即可发现问题
2、代码如下：
(defun c:tt()
(setq acad1 (vlax-get-acad-object))
(setq dbx(vla-GetInterfaceObject acad1 "ObjectDBX.AxDbDocument.16"))
   (setq vbs(vlax-create-object  "scripting.filesystemobject"))
   (setq files(vlax-get-property(vlax-invoke-method vbs 'GetFolder "d:\\cg\\") 'files))
   (setq num 0)
   (vlax-for n files
     (setq file_path(vlax-get-property n 'path))
     (if (= "dwg"  (substr file_path (+ 2(vl-string-search "." file_path) )))
       (progn
(vlax-invoke-method dbx 'open file_path)
(vlax-invoke-method dbx 'SaveAs file_path)
         (princ (strcat file_path "\n"))
(setq num(1+ num))
        )
     )
   
   )
   (vlax-release-object  files)
   (vlax-release-object  vbs)
   (vlax-release-object  dbx)
   (vlax-release-object  acad1)
   (alert (itoa num))
   (princ)
   )

文件夹下只有2个dwg却被运行了有时2次，有时3次，有时4次，不知道为什么，望高手指教，谢谢。

nameld001

不好意思，我不懂得怎么在原来贴子上加悬赏，所以又新建了一个，版主如果觉得不妥请帮我删掉原来的那个帖子。