VBA使用Shell調用winrar進行壓縮和解壓縮

2017-09-10 09:50:00
zstmtony
原創
733


調用Winrar壓縮文件

Private Sub gf_ZipOrRar()
'將D盤的 Access交流網文件夾 壓縮爲AccessCn.rar文件
Shell App.Path + "\WinRar.exe M C:\AccessCn.rar D:\Access交流網"
End Sub


調用Winrar解壓縮文件

Private Sub gf_UnZipOrRar()
'將AccessCn.rar壓縮文件解壓縮在C盤下
Shell App.Path + "\WinRar.exe X C:\AccessCn.rar C:"
End Sub

分享