'将C盘根目录中的mydoc.docx文件,压缩成根目录下的mydoc.rar文件 '使用rar.exe,调用格式:rar.exe a 目标压缩包文件 源文件 Private Sub Command1_Click() Call Shell(C:\Program Files\WinRAR\rar.exe a c:\mydoc.rar c:\mydoc.docx, vbHide) End Sub
'将C盘根目录下的mydoc.rar压缩包中的文件,解压到D盘一个目录中 '使用unrar.exe,调用格式:unrar.exe x 源压缩包文件 目标路径 Private Sub Command2_Click() Call Shell(C:\Program Files\WinRAR\unrar.exe x c:\mydoc.rar d:\temp, vbHide) End Sub