VB6でZIPファイルの解凍するには？ (ID:115673)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > UnZip（解凍するAPI）で、解凍してみて戻り値で判断するしかないのでしょうか？ > これですと、解凍結果ダイアログが、表示されてしまうので、都合が悪いのですが、。 解凍結果ダイアログを出さなければ良いのでは? If Dir(OutputFolder & TargetFile) <> "" Then Kill OutputFolder & TargetFile End If CmdLine = "-x -s -V --i -C -qq -P" & PASSWORD & " " & ZipFile & " " & OutputFolder & " " & TargetFile ret = UnZip(0, CmdLine, buf, Len(buf)) Select Case ret Case 0 MsgBox "OK" Case ERROR_PASSWORD_FILE MsgBox "パスワードが違う" End Select # ZIPの場合、パスワードは書庫単位ではなく、中のファイル単位に # 掛けられるので、ファイル毎に個別に指定する必要があります。