vb.net 如何壓縮、解壓縮文件

1、你先搞懂 winrar.exe 的解壓參數格式，然后把winrar.exe和相關文件加入到資源文件中，然后調用 資源文件中的winrar.exe

為鹽津等地區用戶提供了全套網頁設計制作服務，及鹽津網站建設行業解決方案。主營業務為成都網站建設、網站制作、鹽津網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

2、弄明白rar/zip文件解壓/壓縮方法和格式，自己寫程序 (可能會比較麻煩)

怎么用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.net 怎么釋放資源里面的壓縮包 rar呢

1、你先搞懂 winrar.exe 的解壓參數格式，然后把winrar.exe和相關文件加入到資源文件中，然后調用 資源文件中的winrar.exe

2、弄明白rar/zip文件解壓/壓縮方法和格式，自己寫程序 (可能會比較麻煩)

vb.net進行文件壓縮

如果機器安裝有winRar軟件，就可以通過shell來借用他的功能達到壓縮文件的效果；

參考代碼如下：

Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (壓縮前)

Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")

Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")

'用shell命令調用winrar.exe創建壓縮文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 執行文件的位置

Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (壓縮后)

Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail

'這個命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令傳回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

本文名稱：vb.netzip解壓 解壓軟件winzip
文章分享：http://www.yijiale78.com/article6/hgodog.html

成都網站建設公司_創新互聯，為您提供品牌網站建設、企業網站制作、全網營銷推廣、外貿網站建設、網站排名、網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯