手っ取り早く作れる説明を別途準備しました｡

実用プログラム:ZIP解凍

説明:
BASE_PATHが解凍先フォルダとなります。
事前にindex_ZIP.txtファイルに格納されたZIPファイルリストを
ex) index_ZIP.txt
d:\abc.zip
d:\def.zip
順番に読込ながら、解凍したファイルをBASE_PATH内に保管します。

Sub extract_zip()
    Dim zipFile As Variant, strMove As String
    Dim unzipFolder As Variant
    Dim sh As Object
    Dim REC As String, BASE_PATH as String

    BASE_PATH="d:\"

    Open "index_ZIP.txt" For Input As #1

    Do While Not EOF(1)

        Line Input #1, REC
        zipFile = REC 'zipファイル
        unzipFolder = BASE_PATH '解凍フォルダ

        Set sh = CreateObject("Shell.Application")
        sh.NameSpace(unzipFolder).CopyHere sh.NameSpace(zipFile).Items
        DoEvents

        '解凍済ZIPの退避
        strMove = Replace(zipFile, "Attachment", "Attachment\done")
        Name zipFile As strMove
    Loop

    Close

    MsgBox "done!"
End Sub