GZIP圧縮データの解凍
■ このスレッドは過去ログ倉庫に格納されています
0001YOSHIDA
NGNG10月分ですと old_access_log.2001Oct.gzと 言う名称なんですが、拡張子がgz
なのでUNIXのTarで圧縮されたGZIPファイルなのだと思います。
それで見よう見まねで「Tar32.dll」で解凍する以下のようなコードを書いて実行
したところ「解凍されました」のメッセージは出るのですが解凍ファイルは作成さ
れません。（Tar32.dllはSystemフォルダにコピー済みです。）
Public Declare Function Tar Lib "Tar32.dll" (ByVal hWnd As Long, _
ByVal szCmdLine As String, _
ByVal Lpstr As String, _
ByVal wsize As Long) As Integer
Public Sub gSub_Tar(strTAR名 As String, strDir名 As String)
Dim ret As Long '戻り値：Long
Dim strコマンド As String 'Tarコマンド
Dim str結果 As String * 5000 '結果情報
strTAR名 = "old_access_log.2001Oct.gz"
strDir名 = "C:\WINDOWS\デスクトップ\"
'TARのコマンドを作成(ロングネーム対応)
strコマンド = "-xvf " & """" & strTAR名 & """" & " " & """" & strDir名 & """"
' ファイルの解凍
ret = Tar(Screen.ActiveForm.hWnd, strコマンド, str結果, 5000)
If ret = 0 Then '正常に終了したか
MsgBox "正常に解凍しました。"
Else
MsgBox "解凍ファイルをスキップしたか、解凍にエラーがありました"
End If
End Sub
VBAでのGZIPファイル解凍はどうやればよいのでしょうか？
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNG一応、gzに対応していると書いてある。
引数を"-xvfz"にしたらどうかな。
単発質問スレ反対
0007デフォルトの名無ιさん
NGNG入れて
tar -zxvf old_access_log.2001Oct.gz
すれ。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝糸冬了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNG0011デフォルトの名無しさん
NGNG0012デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています