Question

vb 怎么压缩,解压文件,就是rar或者zip,给我源码,还有调用哪个dll?

注意,不要用什么winrar,如果对方没装这个,根本用不了这个命令,这个不智能,求其他的

Answer 1

其实无需调用DLL，现在只要系统中安装了WinRAR，其安装目录自带了压缩和解压软件：Rar.exe、UnRAR.exe，使用VB的shell调用这两个软件即可，WinRAR支持的格式非常多，不用自己再去造轮子了，下面是简单的示例代码：
注：如果不想安装WinRAR，那就到已安装WinRAR的电脑中将拷贝到你的某个路径中再调用吧

'将C盘根目录中的mydoc.docx文件，压缩成根目录下的mydoc.rar文件
'使用rar.exe，调用格式：rar.exe a <目标压缩包文件> <源文件>
Private Sub Command1_Click()
Call Shell("C:\Program Files\WinRAR\rar.exe a c:\mydoc.rar c:\mydoc.docx", vbHide)
End Sub

'将C盘根目录下的mydoc.rar压缩包中的文件，解压到D盘一个目录中
'使用unrar.exe，调用格式：unrar.exe x <源压缩包文件> <目标路径>
Private Sub Command2_Click()
Call Shell("C:\Program Files\WinRAR\unrar.exe x c:\mydoc.rar d:\temp", vbHide)
End Sub

Answer 2

winrar是最好的~而且代码简单~你可以把它的解压（unRar.exe）和压缩（Rar.exe）2个文件 放到资源里 大小也不过700kb而已，如果用户没有文件 你就释放这2个文件到temp或者程序同目录下。然后再解压你想要的rar,zip等 毕竟winrar支持的格式比较多。又稳定

追问

我以为使用winrar必须要安装的啊,如果像你说的可以独立一个exe加解压,倒还不错,你有现成的例子没,给个我

追答

Private Sub Command1_Click() '将abc.txt 压缩成abc.rar
Call Shell("c:\rar.exe a c:\abc.rar c:\abc.txt", vbHide)
End Sub

Private Sub Command2_Click() '将abc.rar 解压缩到c:\test目录
Call Shell("c:\unrar.exe x c:\abc.rar c:\test", vbHide)
End Sub

追问

添加abc.txt到0.rar时,如果0.rar一开始是存在的,那图标会是锁定的,看上图,这是为何?

如果添加时,没有,则没有锁定图标

追答

你可以 if dir("c:\0.rar")<>"" then kill c:\0.rar '删除文件 或者 让新的rar更名

Answer 3

枕善居的 用UNRAR.DLL的例子
http://www.mndsoft.com/downfiles/vbDeRar.rar
注释 这是一个使用VB操作RAR文件的示例，使用了UNRAR.DLL文件（该文件在压缩包内，请复制到你系统的system32目录下去）,支持压缩文件查看，解压缩带密码保护的RAR文件。

追问

你这个我下载过,提示一大堆的"未注册"和各种错误,,,估计是文件太久了,没更新过,不好

Answer 4

winrar是最好的~而且代码简单~可以把它的解压(unRar.exe)和压缩(Rar.exe)2个文件 放到资源里 大小也不过700kb而已...

Answer 5

你要自己开发作自己的压缩软件吗？