VBA用shell命令來壓縮文件

Sub zipFile() Dim winrarPath$, fullname$, filename$, filePath winrarPath = "c:/program files/winrar/winrar.exe a -afzip " filePath = Application.GetOpenFilename If filePath <> False Then fullname = StrReverse(Split(StrReverse(filePath), "/")(0)) filename = Split(fullname, ".")(0) Shell winrarPath & filename & " " & fullname End If End Sub  

 

注：此代碼只能壓縮單個文件。壓縮多個文件的需要傳入一個壓縮後的文件名，代碼也差不多，不難，大家想想也就出來了。

作者：laoyebin(Paladin.lao)

博客園出處：http://laoyebin.cnblogs.com/

個人網站英文出處：http://mrvsto.com/

個人網站中文出處：http://cn.mrvsto.com/