If you have WinZip installed on the target system :
Code:
'Inputs, Example:
'source = app.path & "source.exe"
'target = app.path & "target.zip"
'zip = true (compress)
'zip = false(uncompress)
-
Code:
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)
End If
End Function
Note :
winzip doesn't recognize spaces
|
__________________
Don't ask what your country can do for you, ask what you can do for your country...
|