vb.netzip類的簡單介紹

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

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

創(chuàng)新互聯(lián)建站客戶idc服務(wù)中心，提供中國電信成都樞紐中心、成都服務(wù)器、成都主機(jī)托管、成都雙線服務(wù)器等業(yè)務(wù)的一站式服務(wù)。通過各地的服務(wù)中心，我們向成都用戶提供優(yōu)質(zhì)廉價(jià)的產(chǎn)品以及開放、透明、穩(wěn)定、高性價(jià)比的服務(wù)，資深網(wǎng)絡(luò)工程師在機(jī)房提供7*24小時(shí)標(biāo)準(zhǔn)級技術(shù)保障。

參考代碼如下：

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 如何壓縮、解壓縮文件

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

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

vb.net中怎么判斷文件類型

這個(gè)問題可以用注冊表解決。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件擴(kuò)展名在注冊表里的文件類型名稱

'比如.zip的類型名稱一般是zipfile

fileType = 讀取注冊表的classes_root下的子鍵(fileExt)的默認(rèn)鍵值

'取得打開這種文件的程序

openCommand = 讀取注冊表的classes_root下的子鍵(fileType + "\shell\open\command")的默認(rèn)鍵值

Return getOpenCommand

End Function

讀取注冊表的HKEY_CLASSES_ROOT下的子鍵的默認(rèn)鍵值的方法可以在網(wǎng)上搜索到。

這樣getOpenCommand("doc")就可以得到一個(gè)字符串(包括引號)：

"C:\Program Files\Word\word.exe" "%1"

這里只需要用Spilt函數(shù)把C:\Program Files\Word\word.exe分離出來就好了

分享標(biāo)題：vb.netzip類的簡單介紹
當(dāng)前URL：http://muchs.cn/article4/doeggoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、軟件開發(fā)、小程序開發(fā)、App設(shè)計(jì)、用戶體驗(yàn)、網(wǎng)站維護(hù)

廣告

聲明：本網(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)