winrar有预定义的指令的，比如下面的vb代码把文件压缩： mystr = "C:\Program Files\WinRAR\WinRAR.exe"
Source = "d:\1.txt" '源文件的位置
Target = "d:\" '存放压缩文件的位置
mystr = mystr & " a " & Target & " " & Source
'调用RAR文件压缩
retval = Shell(mystr, vbHide)
MsgBox "文件压缩成功完成!", 64, "提示信息"解压文件也类似，可以去找下winrar的一些说明，它自己有命令行的，调用就行，解压好像是-inul，不太记得了。上面的代码可以进行压缩。
2. 用VB怎样压缩一个文件
Option Explicit
Dim mystr As String
Dim Source As String ' 源文件
Dim Target As String ' 目标文件
Dim retval
Private Sub Command1_Click() ，=========压缩文件
mystr = "C:\Program Files\WinRAR\winrar.exe" 'winrar.exe文件路径
Source = App.Path & "\111.jpg"
Target = App.Path & "\111.rar" '压缩格式可以是rar,也可以是cab....
mystr = mystr & " a " & Target & " " & Source '命令字符串
retval = Shell(mystr, vbHide)
End Sub
Private Sub Command2_Click() ‘===========解压文件
mystr = "C:\Program Files\WinRAR\winrar.exe"
Source = App.Path & "\111.rar"
Target = App.Path & "\new" '存放压缩文件的位置
mystr = mystr & "X" & Source & " " & Target
Text1.Text = mystr
retval = Shell(mystr, vbHide)
End Sub
Private Sub Command3_Click()
End
End Sub
3. 下载后的VB程序压缩包怎么解压安装呢
你在解压后的文件夹中找
setup.exe,setup.msi的其中一个运行它就可以安装了,任何一个就可以了,哪个存在就运行哪个
4. vb 怎么压缩,解压文件,就是rar或者zip,给我源码,还有调用哪个dll
其实无需调用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
5. 如何用VB代码压缩一个文件夹中的所有文件成一个压缩包
DIR 可以
还可以用FSO 对象,来完成!
Dir 函数
返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
语法
Dir[(pathname[, attributes])]
Dir 函数的语法具有以下几个部分：
部分 描述
pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。
设置值
attributes 参数的设置可为：
常数 值 描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件
vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolume
vbDirectory 16 指定无属性文件及其路径和文件夹。
注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。