[AHK]批量解压Zip文件

最新推荐文章于 2025-03-10 18:43:28 发布

翻译最新推荐文章于 2025-03-10 18:43:28 发布 · 2.7k 阅读

AutoHotkey 专栏收录该内容

384 篇文章

订阅专栏

本文介绍了一个使用AutoHotkey编写的简单脚本，该脚本能够遍历指定目录下的所有.zip文件并将其解压到同一目录下。通过创建Shell应用程序对象来实现文件操作功能。

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