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

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

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.