wqweto / vszlib Goto Github PK

I simply run the following codes, but at 5th line it is generating this error (7-zip dll not found):

1 With New cVszArchive
2 .AddFile App.Path & "\Form1.frm"
3 .AddFile App.Path & "\Project1.vbp"
4 .Parameter("x") = 3 '-- CompressionLevel = Fast
5 .CompressArchive (App.Path & "\test.7z")
6 End With7
MsgBox "test.7z created ok", vbExclamation

Why it's and what is the solution?

Is possible to add from folder @wqweto ?

i have try:

With New cVszArchive
        .AddFile App.Path & "\plugins\*.*"
        .Parameter("x") = 3 '-- CompressionLevel = Fast
        .CompressArchive App.Path & "\plugins.7z"
End With
MsgBox "pluginsx.7z created ok", vbExclamation

but not working

Hi,

I'm using vb6 on win 7 PC. I've regestered the DLL, but when i try run the sample i get 7-zip dll not round. I'm trying to unzip a zip file.

Any ideas?

Cheers,

First, thanks for this great vb code.
I have a suggestion, when i need to deal with big archive (some Go) i have no idea of the unzip progression, plus the vb6 software freeze until the complete extraction.

So any way to add some progression counter of the extraction/compression ?

Thanks

Sample don't work, creates no zip-archive:

With New cVszArchive
.AddFile "your_file"
'--- store filenames in UTF-8
.Parameter("cu") = "on"
.CompressArchive "archive.zip"
End With

Are any additional commands needed to create a Zip instead of a 7z?

Regards
Jo (seniorchef)