サポート掲示板
HOME  □ MANUAL  □ 新着記事  □ 新規投稿
ツリー表示  □ 記事全文表示  □ SEARCH  □ 過去ログ
[1146]  Windows7で解凍できて、XPではエラー
□投稿者/ maite49 -(2013/04/04(Thu) 19:52:40)
□U R L/
    【ソフト名】
    7-zip32.dll
    【バージョン】
    9.20.0.2
    【使用OS】
    WindowsXP
    【PC機種】

    【質問内容】
    お世話になります。
    7-zip32.dllを使用させて頂き、Excel VBAでzipファイル(Pass付)をカレントフォルダに解凍するマクロを作成しました。
    作成したWindows7のExcel2010では問題なく解凍できましたが、別PCのWindowsXPとExcel2003では戻り値がエラーとなり、
    解凍ができませんでした。

    以下にソースコードを記述します。

    Declare Function SevenZip Lib "7-zip32.DLL" _
    (ByVal hWnd As Long, _
    ByVal szCmdLine As String, _
    ByVal szOutput As String, _
    ByVal dwSize As Long) As Long
    Sub 解凍()

    Dim Lpstr As String * 5000
    Dim cmdLine As String
    Dim res As Long

    cmdLine = "x -aoa " & ファイル名 & " -p" & パスワード & " " & ThisWorkbook.Path & "\"

    res = SevenZip(0, cmdLine, Lpstr, 5000)

    End Sub

    Windows7とExcel2010では、上記変数resの値は「0」でしたが、WindowsXPとExcel2003では「33026」となり、
    エラーログLpstrの内容が「Base directory isn't found.」となっていました。

    OSまたはExcelと7-zip32.dllの相性の問題とも考え、unZip32.dllに変更して試してみましたが、
    やはりWindows7では解凍でき、XPでは解凍できませんでした。
    尚、unZip32.dll使用時のresの値は「32809」で、Lpstrの内容は「can't find zipfile[C:\Documents.zip]」でした。
    ログの内容は違いますが、解凍できない原因は同じなのではないかと何となく思っています。
    XPで解凍するには何かを変更する必要があるのでしょうか。
    ご回答のほど、よろしくお願いいたします。

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 >>Re[1]: Windows7で解凍できて、XPではエラー /Akky
 
上記関連ツリー

MESSAGE Windows7で解凍できて、XPではエラー /maite49 (13/04/04(Thu) 19:52) [1146]
....MESSAGE Re[1]: Windows7で解凍できて、XPではエラー /Akky (13/04/05(Fri) 18:45) [1147]
........MESSAGE Re[2]: Windows7で解凍できて、XPではエラー /maite49 (13/04/08(Mon) 18:33) [1148]
............MESSAGE Re[3]: Windows7で解凍できて、XPではエラー /Akky (13/04/09(Tue) 08:58) [1149]
................MESSAGE Re[4]: Windows7で解凍できて、XPではエラー /maite49 (13/04/09(Tue) 10:04) [1150] 解決済み!

ALL MESSAGE 上記ツリーを一括表示
 
上記の記事へ返信


- Child Tree -