VB。NET怎样解压文件

2009-07-21 10:18:27 366 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

利用VB.Net解ZIP文件 Imports System.IOImports java.io C:/WINNT/Microsoft.NET/Framework/v2.0.50727/vjslib.dllImports java.util 解压（Zip）需要解压的ZIP文件输入目录 2010-01-30Private Shared Su 阅读详情

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

...全文

crazyswarm无人机集群搭建笔记（一）资料索引 crazyswarm无人机搭建笔记：资料收集阅读详情

ATM630

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

fananndy 2009-07-24

打赏
举报

这个问题很多人已经问了，有好多解决方案啊，建议不要用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文件同目录）

taick 2009-07-24

打赏
举报

google 看下命令行调用rar.exe

VB。NET怎样解压文件

相关推荐