vb解壓代碼

❶ vb怎麼調用rar解壓文件名帶空格的文件

把文件名用雙引號括起來即可，比如：
Shell """C:\Program Files\WinRAR\Rar.exe"" x ""D:\My Documents\xx.rar"" *.* ""D:\My Documents\a""", vbHide
以上代碼是把 "D:\My Documents\xx.rar" 這個壓縮文件中的所有文件（含路徑）全部解壓縮到 "D:\My Documents\a" 這個文件夾中。注意，在字元串中要用兩個雙引號""代表一個雙引號"
如果要用變數來存儲路徑，可以這樣：
rarExe = "C:\Program Files\WinRAR\Rar.exe" 'winrar的命令行版

rarFile = "D:\My Documents\xx.rar" '要解壓的rar文件
deComFile = "*.*" '要解壓的文件，可以用通配符

desPath = "D:\My Documents\a" '文件釋放的路徑
Shell """" & rarExe & """ x """ & rarFile & """ " & deComFile & " """ & desPath & """", vbHide

❷ vb中我想調用rar.exe解壓文件，我輸入代碼後運行，找不到解壓文件

要加雙引號的啊，要不路徑 中有空格，就提示找不到文件了。

source = App.Path & "\cad.rar"
target = App.Path

改成

source = Chr(34) & App.Path & "\cad.rar" & Chr(34)
target = Chr(34) & App.Path & Chr(34)

❸ 在vb里怎麼實現壓縮文件與解壓文件的操作

利用winrar
解壓文件：
Call Shell( "C:\Program
Files\WinRAR\rar.exe e -o+
E:\Ab.rar E:\ ",
vbHide)

壓縮文件：
Call Shell( "C:\Program
Files\WinRAR\rar.exe a -o+
E:\aa.rar E:\Ab.txt ",
vbHide)

❹ 求高手幫助，用VB如何將指定文件解壓到指定文件夾

Private Sub Command2_Click()

Dim Rarexe As String 'WINRAR執行文件的位置

Dim Source As String ' 解壓縮前的原始文件

Dim Target As String ' 解壓縮後的目標文件

Dim FileString As String 'Shell指令中的字元串

Dim Result As Long

Rarexe = "D:\Program Files\WinRAR\WinRAR.exe" 'winrar.exe的路徑

Source = "d:\try.rar" '壓縮文件的路徑
Path1 = "d:\" '解壓縮後的地址

FileString = Rarexe & " X " & Source & " " & Path1

Result = Shell(FileString, vbHide)

End Sub

按樓主的文件:
將代碼改成:
Private Sub Command2_Click()
Dim Rarexe As String 'WINRAR執行文件的位置
Dim Source As String ' 解壓縮前的原始文件
Dim Target As String ' 解壓縮後的目標文件
Dim FileString As String 'Shell指令中的字元串
Dim Result As Long
Rarexe = "D:\Program Files\WinRAR\WinRAR.exe" '這個要改成你的系統中winrar的安裝路徑,我的在D盤.一般位置在C:\program files\winrar\winrar.exe
Source = "c:\downloads\學習.rar" '學習.rar的路徑
Path1 = "d:\downloads\學習" '解壓後的路徑
FileString = Rarexe & " X " & Source & " " & Path1
Result = Shell(FileString, vbHide)
End Sub

這樣就ok了

❺ VB Unrar.dll解壓RAR文件

==winrar
的安裝目錄中一個unrar.exe，是個dos程序，可以單獨直接調用，不依賴rar環境
==盡量不要操作Windows目錄，在Windows7下會出現操作許可權問題，可能導致失敗
Private
Sub
Command1_Click()
Shell
("z:\unrar.exe
x
-o+
-r
z:\file.rar
z:\")
End
Sub
=========
核心內容都在這里了，自己發揮下吧。

❻ vb 如何解壓rar文件

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"
Source = "d:\1234"
Target = "d:\555.rar"
mystr = mystr & " a " & Target & " " & Source
'Source = App.Path & "\111.jpg"
'Target = App.Path & "\111.rar"
retval = Shell(mystr, vbHide)
End Sub

Private Sub Command2_Click() '解壓縮
mystr = "C:\Program Files\WinRAR\winrar.exe"
Source = "D:\aa\123.rar"
Target = "E:\aa"
mystr = mystr & "X" & Source & " " & Target
Text1.Text = mystr
retval = Shell(mystr, vbHide)
End Sub

❼ 怎麼用VB解壓Zip文件

調用shell、已安裝的WinRar解壓文件。Shell "C:\Program Files\WinRar\Winrar.exe " & "命令行參數"命令行語法 從命令行也可以運行 WinRAR 命令，常規的命令行語法描述如下:WinRAR <命令> -<開關1> -<開關N> <壓縮文件 > <文件...> <@列表文件...> <解壓路徑\>命令要 WinRAR 運行的字元組合代表功能開關切換操作指定類型，壓縮強度，壓縮文件類型，等等的定義。 壓縮文件要處理的壓縮文件名。文件要處理的文件名。列表文件列表文件是包含要處理文件名稱的純文本。文件名應該在第一卷啟動。可以在列表文件中使用 //字元後添加註釋。例如，你可以包含兩列字元串創建 backup.lst: c:\work\doc\*.txt //備份文本文檔 c:\work\image\*.bmp //備份圖片c:\work\misc並接著運行: winrar a backup @backup.lst你可以在命令行中同時指定普通的文件名和列表文件名。 解壓路徑只與命令 e 和 x ，搭配使用。指出解壓文件添加的位置。如果文件夾不存在時，會自動創建。
注意事項a) 如果未指定 文件 或是 列表文件 時，WinRAR 將會以預設的 *.* 運行全部的文件;b) 如果未指定壓縮文件擴展名時，WinRAR 將會使用在 壓縮配置 中選定的默認壓縮文件格式。但你可以指定 .RAR 或 .ZIP 擴展名來替換它們 ;c) 在命令行所輸入的開關會替換相同的配置設置值 ;d) 在命令 c 、e、s、t、rr、k 和 x 可在壓縮文件名中使用通配符。如此可以用單個的命令來進行超過一個以上的壓縮文件，除此之外，如果你指定 -r 開關於這些命令時，它們將會搜索在子文件夾中的壓縮文件 ;e) 某些命令和開關只應用在 RAR 壓縮文件，有些則在 RAR 和 ZIP 都可使用，而某些則可應用在全部的壓縮文件格式。這一些都得看壓縮文件格式所提供的特性而定 ;f) 命令和開關的大小寫是相同意思的，你可以用大寫或者小寫來下命令均可。

❽ 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

❾ vb怎麼解壓

'一、建立模塊MDWinrar.bas,復制下面代碼

Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
As Long
Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As _
Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Sub RarExect(Rarml As String) '等待winrar解壓結束
Dim TaskID As Long ' Task-ID des DOS-Fensters
Dim ProcID As Long ' Prozess-ID des DOS-Fensters
TaskID = Shell(Rarml, vbHide)
DoEvents
ProcID = OpenProcess(SYNCHRONIZE, False, TaskID)
Call WaitForSingleObject(ProcID, INFINITE)
End Sub
'二、程序調用如下：
private command1_click()
'本功能執行了把c:\mydoctment file\blank.zip文件解壓到d:\tmp下。
RarExect "c:\winrar\winrar.exe e -y " & ShortPath("c:\mydoctment file\blank.zip" & " " & ShortPath("d:\tmp")
end sub

❿ VB 壓縮或解壓文件

在VB中用shell調用winrar目錄中的rar.exe（壓縮）或unrar.exe（解壓縮）即可。具體參數看winrar的說明。
可以把rar.exe、unrar.exe這兩個文件復制到自己程序所在目錄，以方便使用。
例如解壓縮123.rar文件：
shell "unrar.exe x -inul 123.rar",vbhide