Search Tools Links Login

Zip and Unzip - in VB6

Visual Basic 6, or VB Classic

we want to call "WinRar.exe" from our VB project .

Original Author: Zaid Markabi


' 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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 189 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.