• Home
 · 
• Files/File Controls/Input/Output
 · 
• Zip and Unzip in VB6

Zip and Unzip in VB6

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

Rate Zip and Unzip in VB6

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' 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