VB Shell 实现压缩和解压缩 (Zip 或 Rar)
Posted by
JiaJia
8 June,2009
(0)Comment
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
Related Items
Categories :
学习编程
Comments
Leave a comment
Or, take a look at Archives and Categories
