16,554
社区成员
发帖
与我相关
我的任务
分享vb.net winrar/lzh/zip 解压程序的例子.
我以前用VB6.0的时候有这方面的例子.但是用VB.NET我在网上找不到好的例子.
...全文
请发表友善的回复…
发表回复
ElfSundae 2009-10-28
- 打赏
- 举报
对于ZIP 。net 有相应的操作类
对于RAR 。用外部工具比较好，推荐使用命令行的winRar.exe
对于RAR 。用外部工具比较好，推荐使用命令行的winRar.exe
standhong 2009-10-28
- 打赏
- 举报
5楼谢谢你的回复.但是我没有太明白.你能给我写写意思吗?
这个是ZIP的解压功能吗?
哪个是压缩的.哪个是解压的?
这个是ZIP的解压功能吗?
哪个是压缩的.哪个是解压的?
gxingmin 2009-10-21
- 打赏
- 举报
order是我定义的一个string类型的变量
standhong 2009-10-21
- 打赏
- 举报
8楼的:
我在MSDN找了没有找到具体的内容.如果你找到的话.告诉我.谢谢.
我在MSDN找了没有找到具体的内容.如果你找到的话.告诉我.谢谢.
standhong 2009-10-21
- 打赏
- 举报
在问一下4楼的.
order 这个命名空间是什么?
order 这个命名空间是什么?
想飞的狼 2009-10-21
- 打赏
- 举报
我记得看书时好像介绍VB.NET自己有个压缩的类,不用WINRAR,太麻烦,去msdn看看
standhong 2009-10-21
- 打赏
- 举报
Public Function UnRAR(ByVal path As String, ByVal rarPath As String, ByVal rarName As String) As Boolean ........
......
end Function
感谢大家的回复.
1:上面的代码.是怎么调用的?
2:需要添加外部文件吗?(例如:*.DLL等)
......
end Function
感谢大家的回复.
1:上面的代码.是怎么调用的?
2:需要添加外部文件吗?(例如:*.DLL等)
standhong 2009-10-21
- 打赏
- 举报
大家还有没有例子了.
standhong 2009-10-20
- 打赏
- 举报
转的话我就不用发贴了.
我本身有VB6.0的.
我本身有VB6.0的.
yuanhuiqiao 2009-10-20
- 打赏
- 举报
standhong 2009-10-20
- 打赏
- 举报
没有人知道吗?
wuyq11 2009-10-20
- 打赏
- 举报
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim strtxtPath As String = "C:\a.txt"
Dim strzipPath As String = "C:\a.zip"
Dim Process1 As New System.Diagnostics.Process()
Process1.StartInfo.FileName = "Winrar.exe"
Process1.StartInfo.CreateNoWindow = True
Process1.StartInfo.Arguments = " x " + strzipPath + " " + strtxtPath;
Process1.StartInfo.Arguments = " x -p123456 " + strzipPath + " " + strtxtPath;
Process1.Start()
If Process1.HasExited Then
Dim iExitCode As Integer = Process1.ExitCode
If iExitCode = 0 Then
Response.Write(iExitCode.ToString() & " 正常完成")
Else
Response.Write(iExitCode.ToString() & " 有错完成")
End If
End If
End Sub
Dim strtxtPath As String = "C:\a.txt"
Dim strzipPath As String = "C:\a.zip"
Dim Process1 As New System.Diagnostics.Process()
Process1.StartInfo.FileName = "Winrar.exe"
Process1.StartInfo.CreateNoWindow = True
Process1.StartInfo.Arguments = " x " + strzipPath + " " + strtxtPath;
Process1.StartInfo.Arguments = " x -p123456 " + strzipPath + " " + strtxtPath;
Process1.Start()
If Process1.HasExited Then
Dim iExitCode As Integer = Process1.ExitCode
If iExitCode = 0 Then
Response.Write(iExitCode.ToString() & " 正常完成")
Else
Response.Write(iExitCode.ToString() & " 有错完成")
End If
End If
End Sub
wuyq11 2009-10-20
- 打赏
- 举报
Public Function UnRAR(ByVal path As String, ByVal rarPath As String, ByVal rarName As String) As Boolean
Dim flag As Boolean = False
Dim rarexe As String
Dim regkey As RegistryKey
Dim regvalue As [Object]
Dim cmd As String
Dim startinfo As ProcessStartInfo
Dim process As Process
Try
regkey = Registry.ClassesRoot.OpenSubKey("Applications\WinRAR.exe\shell\open\command")
regvalue = regkey.GetValue("")
rarexe = regvalue.ToString()
regkey.Close()
rarexe = rarexe.Substring(1, rarexe.Length - 7)
Directory.CreateDirectory(path)
cmd = String.Format("x {0} {1} -y", rarName, path)
startinfo = New ProcessStartInfo()
startinfo.FileName = rarexe
startinfo.Arguments = cmd
startinfo.WindowStyle = ProcessWindowStyle.Hidden
startinfo.WorkingDirectory = rarPath
process = New Process()
process.StartInfo = startinfo
process.Start()
process.WaitForExit()
If process.HasExited Then
flag = True
End If
process.Close()
Catch e As Exception
Throw e
End Try
Return flag
End Function
Dim flag As Boolean = False
Dim rarexe As String
Dim regkey As RegistryKey
Dim regvalue As [Object]
Dim cmd As String
Dim startinfo As ProcessStartInfo
Dim process As Process
Try
regkey = Registry.ClassesRoot.OpenSubKey("Applications\WinRAR.exe\shell\open\command")
regvalue = regkey.GetValue("")
rarexe = regvalue.ToString()
regkey.Close()
rarexe = rarexe.Substring(1, rarexe.Length - 7)
Directory.CreateDirectory(path)
cmd = String.Format("x {0} {1} -y", rarName, path)
startinfo = New ProcessStartInfo()
startinfo.FileName = rarexe
startinfo.Arguments = cmd
startinfo.WindowStyle = ProcessWindowStyle.Hidden
startinfo.WorkingDirectory = rarPath
process = New Process()
process.StartInfo = startinfo
process.Start()
process.WaitForExit()
If process.HasExited Then
flag = True
End If
process.Close()
Catch e As Exception
Throw e
End Try
Return flag
End Function
gxingmin 2009-10-20
- 打赏
- 举报
'压缩代码,rarname为压缩后的文件名，sPWD为密码，rarPath为需要压缩的目录
order = "a " & rarname & Space(1) & "-o+ -df -p" & sPWD & Space(1) & rarPath
Dim info As New ProcessStartInfo("winrar.exe")
info.WindowStyle = ProcessWindowStyle.Hidden
info.Arguments = order
Process.Start(info)
'解压缩
Dim info As New ProcessStartInfo("winrar.exe")
order = "e " & rarname & " -p" & sEnPWD & " -o+ " & strXmlSavePath
info.WindowStyle = ProcessWindowStyle.Hidden
info.Arguments = order
process.Start(info)
