|
解凍には専用のDLLが必要です。UNLHA32 というファイルなんですが、Miccoさん
という方が作られたものです。MiccoさんのHP↓からダウンロードさせてもらって
下さい。
http://www2.nsknet.or.jp/~micco/micindex.html
VBAで解凍するためのコードは↓のようにになります。
Unlhaに渡す2番目の引数には頭に "e" が付いてますが、これはスイッチです。
UNLHA32.DLLの解説テキストに、詳しい説明が出ています。もちろんこれを使って
圧縮することも可能なので、是非説明を読んでみて下さい。
Declare Function Unlha Lib "UNLHA32.DLL" (ByVal Callhwnd As Long, _
ByVal LHACommand As String, ByVal RetBuff As String, _
ByVal RetBuffSize As Long) As Long
Sub Test解凍()
Dim SendStr As String, MyS As String * 255
Dim Result As Long
SendStr = "e C:\Temp\test.lzh C:\Temp\"
Result = Unlha(0, SendStr, MyS, 255)
If Result <> 0 Then MsgBox "解凍は失敗しました", 48
End Sub
|
|