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
VB Shell 实现压缩和解压缩 (Zip 或 Rar)
猜你喜欢
转载自yeuego.iteye.com/blog/947608
今日推荐
周排行