blechmusikの日記

キー・カスタマイズ・ソフトウェア "DvorakJ" の覚え書きをはじめとして様々なことを書いています。

AutoHotkey_L に実装された COM を使用して zip ファイルを展開してみた

AutoHotkey_L で zip ファイルを展開する関数を作成した。一つ目の引数には zip ファイルのパスを記述し、二つ目の引数には展開先のフォルダのパスを記述する。参考にしたスクリプトについては、コメントアウトした URL 先のページを参照のこと。

;;; Zip/Unzip using native ZipFolder Feature in XP
;;; http://www.autohotkey.com/forum/post-335359.html#335359


;;; COM Standard Library
;;; http://www.autohotkey.com/forum/viewtopic.php?p=330998#330998
Unz(sZip, sUnz)
{
    psh := ComObjCreate("Shell.Application")
    psh.Namespace( sUnz ).CopyHere( psh.Namespace( sZip ).items, 4|16 )
    return
}