Zip and Unzip - in VB6
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
we want to call "WinRar.exe" from our VB project .
Original Author: Zaid Markabi
Code
' we need ZipCmd and UnZipCmd ( commands button ) .
Private Sub ZipCmd_Click()
' we like to zip [ C:DataFiles ] folder to [ C:Compressor.rar ] file.
Shell App.Path + "WinRar.exe M C:Compressor.rar C:DataFiles"
MsgBox "Zipped"
End Sub
Private Sub UnZipCmd_Click()
Shell App.Path + "WinRar.exe X C:Compressor.rar C:"
MsgBox "UnZipped"
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.