1、你先搞懂 winrar.exe 的解壓參數(shù)格式,然后把winrar.exe和相關(guān)文件加入到資源文件中,然后調(diào)用 資源文件中的winrar.exe
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、永安ssl等。為上1000+企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的永安網(wǎng)站制作公司
2、弄明白rar/zip文件解壓/壓縮方法和格式,自己寫(xiě)程序 (可能會(huì)比較麻煩)
手機(jī)敲很累的!一定要給分??!格式是:tar
選項(xiàng)
文件.選項(xiàng)有
-c:產(chǎn)生打包文件
-v:顯示詳細(xì)信息
-f:指定壓縮后的文件名
-z:打包同時(shí)壓縮!舉個(gè)例子吧!將目錄my打包并壓縮成my.tar.gz就這樣tar
-zcvf
my.tar.gz
my
如果機(jī)器安裝有winRar軟件,就可以通過(guò)shell來(lái)借用他的功能達(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)
可以,屬性controlBox 為false可以去掉三個(gè)按鈕,另外還有maximize,minimize 可以分別控制最大化和最小化按鈕的顯示。