Excel：搜索文件夾內的所有zip文件

Question

我有一個宏（Loop through files in a folder using VBA?），它查找zip文件的文件夾內部，但問題是最後一個zip文件有一個空字符串作爲名稱。我怎樣才能避免這個錯誤。

宏的代碼：

Sub LoopThroughFiles() 
    ' Define variables 
    Dim file As String, folder As String 

    ' Define working directory 
    folder = "C:\Users\cportocarrero\Desktop\Curvas\" 

    ' Define type of file to search for 
    file = Dir(folder & "*.zip") 

    ' Loop through all the files 
    Do While Len(file) > 0 
     Debug.Print file 
     file = Dir 
     MsgBox file 
    Loop 
End Sub 

Answer 1

你必須保持這樣的循環：
- 循環之前第一次調用dir，然後
- while循環
- 來電dir應該是循環內的最後一個命令

file = Dir(folder & "*.zip") 
Do While file <> "" 
    Debug.Print file 
    MsgBox file 
    file = Dir 
Loop 

當dir retu rns一個空字符串，這意味着沒有更多的匹配。