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 所指定的，在程序代碼中的任何位置，可以使用這些常數來替換真正的數值。