Zip and Unzip - in VB6

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: 151 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.