1

フォルダー内の zip ファイルを検索するマクロ ( Loop through files in a folder using VBA? ) を使用していますが、問題は、最後の 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
4

1 に答える 1

1

次のようにループを維持する必要があります:
- 最初dirにループの前に呼び出し、次に
- while ループ
- 呼び出しdirはループ内の最後のコマンドにする 

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

が空の文字列を返す場合dir、これ以上一致するものがないことを意味します。

于 2013-05-21T22:05:11.100 に答える