vb解壓
㈠ VB解壓ZIP
其它語言可以嗎?我只會用delphi,VB太麻煩,還要調用DLL,你也可以用winrar的自解壓來解決.
已經完成,請下載測試.鏈接在給你的消息中.
㈡ vb怎麼解壓rar
可以調用WinRar文件夾里自帶的RarExt.dll庫文件，裡面有一些函數，可以完成壓縮與解壓縮功能，函數的使用方法可以參考相關資料。
㈢ vb直接解壓zip文件
你可以一個winrar.exe到vb程序同目錄,然後shell調用app.path & "/winrar.exe"來解壓
________________________
不是浪費的問題
而是默認的打開壓縮文件不是解壓文件,也就是只打開個窗口而已,沒有什麼意義
所以還不如直接復制個winrar或者7zip一類的解壓呢
㈣ vb解壓壓縮文件
用vb解壓？有現成的壓縮-解壓軟體啊，如WINRAR,WINZIP等等，為什麼要用VB？
㈤ 用vb解壓縮
使用winRAR的介面就行了
用shell來調用
shell "rar x -ad *.rar data\"
就是把當前目錄下的所有壓縮文件解壓縮到data目錄下
㈥ 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怎麼壓縮解壓文件
推薦採用免費的DOS版RAR程序，然後用SHELL "命令行" 的方式壓縮解壓文件，我就這么乾的，做起來方便很多。
㈧ 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解壓的問題。
改成：
Private Sub U()
Shell "unrar.exe e -y -inul " & F
End Sub
用法: unrar <命令> -<開關 1> -<開關 N> <壓縮文件> <文件...>
<@列表文件...> <解壓路徑\>
<命令>
e 解壓壓縮文件到當前目錄
l[t,b] 列出壓縮文件[技術信息,簡潔]
p 列印文件到標准輸出設備
t 測試壓縮文件
v[t,b] 詳細列出壓縮文件[技術信息,簡潔]
x 用絕對路徑解壓文件
<開關>
- 停止掃描
ac 壓縮或解壓後清除存檔屬性
ad 添加壓縮文件名到目標路徑
ai 忽略文件屬性
ap<格式> 添加路徑到壓縮文件中
av- 禁用用戶身份校驗
c- 禁用注釋顯示
cfg- 禁用讀取配置
cl 名稱轉換為小寫
cu 名稱轉換為大寫
dh 打開共享文件
ep 從名稱中排除路徑
ep3 擴展路徑為包含盤符的完全路徑
f 刷新文件
id[c,d,p,q] 禁用消息
ierr 發送所有消息到標准錯誤設備
inul 禁用所有消息
ioff 完成一個操作後關閉 PC 電源
kb 保留損壞的已解壓文件
n<文件> 僅包含指定的文件
n@ 從標准輸入設備讀取文件名到包括
n@<列表> 包含在指定的列表文件中列出的文件
o[+|-] 設置覆蓋模式
oc 設置 NTFS 壓縮屬性
or 自動重命名文件
ow 保存或恢復文件所有者和組
p[密碼] 設置密碼
p- 不詢問密碼
r 遞歸子目錄
ri<P>[:<S>] 設置優先順序(0-默認,1-最小..15-最大)和以毫秒為單位的休眠時間
sl<大小> 處理小於指定大小的文件
sm<大小> 處理超過指定大小的文件
ta<日期> 添加日期 <日期> 後修改的文件,日期格式 YYYYMMDDHHMMSS
tb<日期> 添加日期 <日期> 前修改的文件,日期格式 YYYYMMDDHHMMSS
tn<時間> 添加 <時間> 以後的文件
to<時間> 添加 <時間> 以前的文件
ts<m,c,a>[N] 保存或恢復文件時間(修改,創建,訪問)
u 更新文件
v 列出所有卷
ver[n] 文件版本控制
vp 每卷之前暫停
x<文件> 排除指定的文件
x@ 從標准輸入設備讀取要排除的文件名
x@<列表> 排除在指定的列表文件中列出的文件
y 假設對全部詢問都回答是
㈩ 怎麼用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) 命令和開關的大小寫是相同意思的，你可以用大寫或者小寫來下命令均可。