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

1、你先搞懂 winrar.exe 的解壓參數(shù)格式，然后把winrar.exe和相關(guān)文件加入到資源文件中，然后調(diào)用 資源文件中的winrar.exe

站在用戶的角度思考問題，與客戶深入溝通，找到孟村網(wǎng)站設(shè)計(jì)與孟村網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊、雅安服務(wù)器托管、企業(yè)郵箱。業(yè)務(wù)覆蓋孟村地區(qū)。

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

vb.net進(jìn)行文件壓縮

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

參考代碼如下：

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命令調(diào)用winrar.exe創(chuàng)建壓縮文件()

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

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

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

'這個(gè)命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令傳回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

VB.net環(huán)境下 不接壓直接讀取GZ壓縮文件內(nèi)容?能實(shí)現(xiàn)嗎？

直接讀取 一個(gè)gz壓縮文件：

我直接創(chuàng)建了一個(gè)內(nèi)容："asdfasdfasfd" 的 1.txt文件并用gzip 壓縮。

讀取：

$ zcat 1.txt.gz

asdfasdfasfd

如果內(nèi)容過長可以接 less 查看：

$ zcat 1.txt.gz | less

網(wǎng)站名稱：vb.net訪問壓縮,vb壓縮文件
標(biāo)題來源：http://chinadenli.net/article25/dsepcci.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、網(wǎng)站改版、小程序開發(fā)、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站導(dǎo)航、軟件開發(fā)

廣告

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