如果機器安裝有winRar軟件,就可以通過shell來借用他的功能達到壓縮文件的效果;
成都創新互聯公司是專業的墨竹工卡網站建設公司,墨竹工卡接單;提供網站建設、網站設計,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行墨竹工卡網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!
參考代碼如下:
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)
如果是固定格式的,
str=34X+45Y=67Z
x=split(str,"X")(0) ‘以X分割,取第0段,即:34
y=split(split(str,'+')(1),'Y')(0) '以+分割,取第1段即:45Y=67Z,再以Y分割,取0段得45
z=split(split(str,'=')(1),'Y')(0) '同上
把字符串分割,查找,截取這些常用字符串處理函數掌握了,
就差不多能隨心所欲的處理了...
以上是vb6.0代碼,
1、你先搞懂 winrar.exe 的解壓參數格式,然后把winrar.exe和相關文件加入到資源文件中,然后調用 資源文件中的winrar.exe
2、弄明白rar/zip文件解壓/壓縮方法和格式,自己寫程序 (可能會比較麻煩)
每個參數的默認傳入機制均為ByVal,這意味著過程無法更改基礎變量元素。
如果不指定parametertype,則默認為Object。
文章標題:vb.net7z的簡單介紹
文章轉載:http://vcdvsql.cn/article6/doispog.html
成都網站建設公司_創新互聯,為您提供品牌網站制作、外貿網站建設、響應式網站、營銷型網站建設、ChatGPT、網站排名
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯