[AHK]批量解压Zip文件

阅读 54

2023-04-24


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 := ""



精彩评论(0)

0 0 举报