因上次有一篇教大家如何利用元件來做到解壓縮與讀檔
所以這是要來介紹如何製作ZIP壓縮檔
本次元件主角依舊為 Ionic.Zip.dll
再次附一下 Ionic.Zip.dll 網址
https://www.dllme.com/dll/files/ionic_zip_dll.html
進入正文
這裡一樣示範一套較常用的範例給大家
版本為1.9.1.5
首先先加入參考:
lonic.Zip.dll
加入命名:
Imports System.IO
Imports Ionic.Zip
程式部分以下:
'建立Zip包
Using zip As New Zip.ZipFile()
'取得產出檔案
Dim strFILE_PATH As String = ""
strFILE_PATH = "D:\XXXX\XXX.xls" --> 設定你要壓縮的檔案路徑
zip.AddFile(strFILE_PATH, "") --->將檔案放入Zip包
Dim FileName = "123.zip" -->設定Zip包名稱
Dim strZIP_PATH ="D:\XXXX\" & FileName -->設定Zip包路徑
zip.Save(strZIP_PATH) -->產生Zip壓縮檔
'刪除已放入Zip檔案(此處看個人習慣)
If File.Exists("D:\XXXX\XXX.xls") = True Then
File.Delete("D:\XXXX\XXX.xls")
End If
End Using
是不是非常簡單啊~當然還能夠延伸去做許多不同的應用!
這次的介紹就到這邊囉~希望對大家有所幫助
一樣若有錯誤或問題歡迎留言
如有內容侵權請與我聯繫 謝謝指教~
