by Zaid Markabi (40 Submissions)
Category: Files/File Controls/Input/Output
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
we want to call "WinRar.exe" from our VB project .
' 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