使用 7-Zip 壓縮檔案

最近要壓縮 Email 附件檔
所以就挑了 7-Zip 來使用(免費)
這邊就記錄一下使用方式

   Dim p as new Diagnostics.Process()      
   ' 7z.exe 的路徑
   ' 也可以將 7z.exe 直接 Copy 到程式資料夾下
   p.StartInfo.Filename = "C:\Progra~1\7-Zip\7z.exe"
   ' a : 加入壓縮檔
   ' -tzip : 以 zip 方式壓縮
   ' -v3m : 每 3 MB 切割一個壓縮檔
   ' ZipFiles : 要壓縮的資料夾或檔案名稱 (可使用相對或絕對路徑)
   p.StartInfo.Arguments = "a -tzip -v3m ZipFiles"
   p.Start()
   p.WaitForExit()  ' 等待壓縮完成才進行之後的程式段

7-Zip 的相關參數設定可參考 [此處]