请教scripting.filesystemobject的循环问题

Question

文件夹下只有D:\cg\2.dwg,D:\cg\3.dwg,D:\cg\Drawing1.dwg这三个文档代码:
Set scr_obj = CreateObject("scripting.filesystemobject")
Set folder_obj = scr_obj.GetFolder(Text2.Text)
Set files_obj = folder_obj.Files
num=0
For Each file In files_objIf Right(file.Name, 3) = "dwg" Then '是否为dwg
....
Debug.Print file.Path
num=num+1
end if
next
发现有时循环了三个文件,有时重复了一个文件,为什么呢?
运行结果:
****************
D:\cg\2.dwg
D:\cg\3.dwg
D:\cg\Drawing1.dwg
****************
D:\cg\3.dwg
D:\cg\Drawing1.dwg
D:\cg\2.dwg
D:\cg\3.dwg
****************

Answer 1

A)首先整个工程搜一下 Debug.Print，确认只有这里输出文件名。
B)你是否把前次调试的输出当成这次了？把输出窗口删干净再测试。

Answer 2

监视files_obj。
逐步运行，多试两次，看一下问题出现的时候，files_obj 的内容