AutoHotkey スレッド part10

このエントリーをはてなブックマークに追加
979名無しさん@お腹いっぱい。
AHKL(unicode)でunzipする処理をしたいです
7zのような外部アプリを使わずにOSの機能だけを使用して展開してみようと思いました

ですが、COM_L を使用してunzipしようとすると、エラーが出ます。ソースはこれです

SetWorkingDir, %A_ScriptDir%
; http://www.autohotkey.com/forum/topic22923.html
; #include COM.ahk

; "AutoHotkey_Lw.zip" を "hoge" に展開する
Unz("AutoHotkey_Lw.zip", "hoge")
return

; http://www.autohotkey.com/forum/post-335359.html#335359
Unz(sZip, sUnz)
{
psh := COM_CreateObject("Shell.Application")
psh.Namespace( sUnz ).CopyHere( psh.Namespace( sZip ).items, 4|16 )
return
}

#includeでCOM.ahkを読み取れないと言われたので、
COM.ahk の中身を全てコピペで取り込み再度実行したら↓のエラーが出ました

COM Error Notification
Function Name: "items"
ERROR: No COM Dispatch Object!
   ()

Will Continue?

どこを修正すればよいのでしょうか