zip32.dll

[Marrigon]

Hi,
I'm trying to zip some files from my application.
The problem is that I want to zip the files and to loose information about the their original paths.
For zipping I'm using the zip32.dll and what I'm looking for is either how to do this or the Dll documentation.

Thanks all
Marrigon

[Iouri]

You can do it using winzip

'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)
End If
End Function


Iouri Boutchkine
iouri@hotsheet.com

[Marrigon]

Unfortunately I can't use winzip because it's not installed on the server on which my application have to run.

[Iouri]

What about pkzip

c = Shell("d:\temp\pkunzip.exe d:\temp\t001015.zip d:\temp", vbHide)


Iouri Boutchkine
iouri@hotsheet.com

[Chris Eastwood]

<de-lurk>

Or you could checkout my 'zip/unzip' classes at :

http://www.codeguru.com/vb/articles/1854.shtml

- these wrap up the zip32.dll and unzip32.dll components.

</de-lurk>


Chris Eastwood
VBCodeLibrary - http://www.vbcodelibrary.com

[PierreS]

Hi

Any Idea why I get the message :

"Winzip Parameter Validation Error"

When I use the code below ?

Regards



'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)
End If
End Function

[dglienna]

You are missing the \ in all your paths:

zipIT = App.Path & "\winzip32 -a"