檔案夾下只有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_obj
If 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
****************
uj5u.com熱心網友回復：
沒遇到過。uj5u.com熱心網友回復：
A)首先整個工程搜一下 Debug.Print，確認只有這里輸出檔案名。B)你是否把前次除錯的輸出當成這次了？把輸出視窗刪干凈再測驗。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
監視files_obj。逐步運行，多試兩次，看一下問題出現的時候，files_obj 的內容
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/99663.html
標籤：VB基礎類
下一篇：各位好!我是新手!請熱心人幫忙!