標題: [分享] 7zip壓縮方式 [打印本頁]

---

作者: Min    時間: 2010-5-3 20:50     標題: 7zip壓縮方式

Sub My7_ZIP()
    Dim Tmp
        
    Tmp = Shell("C:\Progra~1\7-Zip\7z.EXE a -tzip C:\7ZIP_TEST.zip C:\CGM_7ZIP_TEST\*", vbNormalFocus)
    '7z就是我們上面設定過的7z.exe
    'a是壓縮的意思
    'C:\7ZIP_TEST.zip表示我們壓縮完的壓縮檔命名為7ZIP_TEST壓縮格式是zip
    'C:\CGM_7ZIP_TEST\*表示目錄下的所有檔案來作為我們的壓縮列表
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)