VB.NETでフォルダを圧縮

VB.NETでフォルダ（ファイル）を圧縮するプログラムを作っています。
http://homepage1.nifty.com/rucio/main/Samples/Sa …
このページのやり方が一番簡単だと思ったのですが、
VB6のコードなので使えません。
どうすればVB.NETで使えるでしょうか。

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2008/07/27 03:56

Option Explicit On

Option Strict On
Option Compare Binary
Option Infer Off

'とりあえず自分のところでは動作している。
'StrBufferを空文字列にして良いのか自信ない。

Class Q4206113
Private Declare Function Unlha Lib "Unlha32.dll" (ByVal hWnd As Integer, ByVal szCmdLine As String, ByVal szOutput As String, ByVal dwSize As Integer) As Integer

Shared Sub Main()
Call LhaPress("C:\newa.pl.txt","C:\hoge.lzh",Nothing)
End Sub

Shared Sub LhaPress(SourceFileName As String, TargetFileName As String, hWnd As Integer)

Dim strSwitch As String
Dim strOptions As String
Dim strCommandLine As String
Dim StrBuffer As String

strSwitch = "a"
strOptions = "-x1 -r2"
strCommandLine = strSwitch & " " & strOptions & " """ & TargetFileName & """ """ & SourceFileName & """"
　　　　　　　　StrBuffer = ""

Call Unlha(hWnd, strCommandLine, strBuffer, 1024)

End Sub

End Class