HSPTV!掲示板

unzip32.dllを使用してzipファイルを解凍したいと思い、スクリプトを組んだのですが、うまく動作しません。

zipの解凍はhttp://lhsp.s206.xrea.com/hsp_file.html#5
D&Dしたファイルの取得はhttp://www.geocities.co.jp/Playtown-Yoyo/6130/hsp/hsp-drag-file.html
を参考にしました。

実行ファイルの上にzipファイルをD&Dしたら自動で回答するようにしたいのですが・・・

組んでみたスクリプト↓

#uselib "unzip32"
#func UnZip "UnZip" nullptr, str, int, int
#func UnZipGetFileCount "UnZipGetFileCount" str
#func UnZipGetVersion "UnZipGetVersion"
	sdim filepath, 256
	sdim outpath, 256
	sdim szOutput,1024
	dirinfo(4) = filepath	; ファイル名取得
	if peek(filepath, ) = '"' : getstr filepath, filepath, 1, '"'
	if varptr(UnZipGetVersion) = 0 {
		dialog "unzip32.dllがありません。"
		end
	}
	outpath = getpath(filepath,32)	; パスの抜き出し
*unpack
	UnZip "\""+filepath+"\" \""+outpath+"\""
    if stat = "0" : goto *owari
	dialog "解凍できませんでした。"
	end
*owari
	end

これだと正常に作動しなかったので、D&Dに関してのページをしっかり読み、
HSPエディタの起動オプションにdirinfo(4)を設定してみましたが、内部エラー41になってしまいました。
ちなみに、D&Dしない場合の解凍は成功しています。

どうすればいいでしょうか？
お願いします。

すいません。ipファイルではなく、zipファイルです。

スクリプトをexeファイルにしないで
エディタ上で実行すれば原因が分かります。

人間誰しもミスはありますから、完璧なデバッグをしろとまでは言いませんが
使っている変数の内容と文字の書き間違いがないかの確認ぐらいは
自分でしてから質問して下さいね。

Debugウィンドウの変数タブを見れば
使用中の変数一覧とその内容が確認できるので
有効に活用してください。

>人間誰しもミスはありますから、完璧なデバッグをしろとまでは言いませんが使っている変数の内容と文字の書き間違いがないかの確認ぐらいは自分でしてから質問して下さいね。
そうでしたね。

ちなみに、自己解決しました。