[分享] 7zip壓縮方式

Min

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