VB。NET怎样解压文件

[ATM630]

VB。NET怎样解压文件（绝对路径的）
最好是用rar.exe

[taick]

google 看下命令行调用rar.exe

[fananndy]

这个问题很多人已经问了，有好多解决方案啊，建议不要用RAR，操作起来比较困难：
我这里有一个专门使用RAR的类，给您参考一下：
1，代码：
Public Class UsRar
Private RarExEPath As String
Sub New(ByVal uRarExEpath As String)
Me.RarExEPath = uRarExEpath
If My.Computer.FileSystem.FileExists(Me.RarExEPath) = False Then
MsgBox("找不到C:\Program files\winrar\rar.exe", MsgBoxStyle.Information, "缺少WinRar工具")
Exit Sub
End If

End Sub

Public Sub 创建Rar文件(ByVal 要创建的RAR文件全路径 As String, ByVal 密码 As String, ByVal 把文件添加到RAR文件哪里 As String _
, ByVal 需要添加到RAR文件的文件或文件夹全路径 As String)
Dim order As String
Dim rarname As String = 要创建的RAR文件全路径
Dim filename As String = 需要添加到RAR文件的文件或文件夹全路径
'order = "a -hpFananndy" & rarname & Space(1) & filename'带密码压缩
If 密码 <> "" Then 密码 = "-hp" & 密码
If 把文件添加到RAR文件哪里 <> "" Then 把文件添加到RAR文件哪里 = "-ap" & 把文件添加到RAR文件哪里
If 密码 = "" And 把文件添加到RAR文件哪里 = "" Then
order = "a "
Else
order = "a "
End If
order = order & 密码 & Space(1) & 把文件添加到RAR文件哪里 & Space(1) & 要创建的RAR文件全路径 & Space(1) & 需要添加到RAR文件的文件或文件夹全路径

Dim info As New ProcessStartInfo(RarExEPath)
info.WindowStyle = ProcessWindowStyle.Hidden
info.Arguments = order
Process.Start(info)
MsgBox(info.ToString)
End Sub

Public Sub 解压Rar文件(ByVal RAR文件全路径 As String, ByVal 密码 As String, ByVal 解压RAR文件哪里的文件或文件夹 As String _
, ByVal 需要解压的文件类型 As String, ByVal 解压输出的路径 As String)
Dim order As String
Dim rarname As String = RAR文件全路径
Dim filename As String = 解压输出的路径
'order = "a -hpFananndy" & rarname & Space(1) & filename'带密码压缩
If 密码 <> "" Then 密码 = "-hp" & 密码
If 解压RAR文件哪里的文件或文件夹 <> "" Then 解压RAR文件哪里的文件或文件夹 = "-ap" & 解压RAR文件哪里的文件或文件夹
RAR文件全路径 = RAR文件全路径 & Space(1) & 需要解压的文件类型
If 密码 = "" And 解压RAR文件哪里的文件或文件夹 = "" Then
order = "x "
Else
order = "x "
End If
order = order & 密码 & Space(1) & RAR文件全路径 & Space(1) & 解压输出的路径

Dim info As New ProcessStartInfo(RarExEPath)
info.WindowStyle = ProcessWindowStyle.Hidden
info.Arguments = order
Process.Start(info)

End Sub

End Class
2，注意事项：
没有对rar文件压缩（解压）进程进行监控，不知道RAR解压（压缩）是否完成，容易出现错误。自己试试看把。
3，使用说明
建立一个form，引用这个类，（保证您的RAR安装在：C:\Program files\winrar\rar.exe，您也可以在代码里面修改路径）
具体使用：
dim kk as new UsRar("RAR应用文件全路径")
kk.创建Rar文件(要创建的RAR文件全路径, 密码, 把文件添加到RAR文件哪里,需要添加到RAR文件的文件或文件夹全路径)
参数说明：
要创建的RAR文件全路径：命名要创建RAR文件的名称
密码：设定密码
把文件添加到RAR文件哪里：创建的RAR文件有可能有子目录，选择其子目录
需要添加到RAR文件的文件或文件夹全路径：要添加的文件（必须与RAR文件同目录）