Zip and Unzip - in VB6

' 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