VB6 中使用 Shell 实现压缩和解压缩 ，Zip 或 Rar

Private Sub ZipOrRar()

'将C盘的test文件夹压缩为test.rar文件

Shell App.Path + "\WinRar.exe M C:\test.rar C:\test"

End Sub

Private Sub UnZipOrRar()

'将test.rar解压缩在C盘下

Shell App.Path + "\WinRar.exe X C:\test.rar C:\"

End Sub