[AHK]批量解压Zip文件

TempDir =D:\ESS支撑
oShell := ComObjCreate("Shell.Application")
oDir := oShell.NameSpace(TempDir)

Loop %TempDir%\*.zip
{
    oZip := oShell.NameSpace(A_LoopFileFullPath)

    if !(oZip && oDir)
    {
        MsgBox 16, AutoHotkey,failed: unzip error.
        Run %TempDir%
        ExitApp
    }
    oDir.CopyHere(oZip.Items, 4)
}
oShell := oDir := oZip := ""