If you have WinZip installed on the target system :
'source = app.path & "source.exe"
'target = app.path & "target.zip"
'zip = true (compress)
'zip = false(uncompress)
Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean)
zipIT = App.Path & "winzip32 -a"
unzipIT = App.Path & "winzip32 -e "
If zip = True Then
Shell (zipIT & target & source)
Else: Shell (unzipIT & target & source)
winzip doesn't recognize spaces
Don't ask what your country can do for you, ask what you can do for your country...