[Ace] WinzipIT
Simple code to zip/unzip with Winzip
Original Author: renyi[ace]
Inputs
'Example:
'source = app.path & "source.exe"
'target = app.path & "target.zip"
'zip = true (compress)
'zip = false(uncompress)
Assumptions
that you have winzip, :)
Side Effects
'I'm having problem with windows path.
'winzip doesn't recognize spaces, :(
'anyone got ideas ? pls mail me..........
Code
'---------
'WinZipIT
'---------
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.