(Vsz = Vb Seven Zip)
7-zip SDK supports several compression methods that can produce and read 7z, zip, gzip, tar, bzip2 and other archives. This is a VB6 helper component that makes using original 7z.dll
in your VB6 projects possible.
With New cVszArchive
.AddFile "your_file"
.CompressArchive "test.7z"
End With
With New cVszArchive
.OpenArchive "test.7z"
.Extract "extract_folder"
End With
With New cVszArchive
.AddFile "your_file"
'--- store filenames in UTF-8
.Parameter("cu") = "on"
.CompressArchive "archive.zip"
End With
With New cVszArchive
.AddFile "your_file"
.AddFile "folder\another_file", "folder\name_in_archive"
'--- fast compression (-mx3)
.Parameter("x") = 3
'--- LZMA2 method supports multi-core compression
.Parameter("0") = "LZMA2"
.Parameter("mt") = "on"
.Password = "secret"
'--- split in 10MB volumes
.VolumeSize = 10# * 1024 * 1024
.CompressArchive "test_lzma2.7z"
End With
With New cVszArchive
.OpenArchive "source.7z"
.Extract "bin_folder", "*.exe"
End With
Before opening Src\VszLib.vbp
register Src\SevenZip.tlb
with regtlib.exe
, VB6 IDE or your favorite typelib registration tool. You don't need to redistribute SevenZip.tlb
, it's only needed in development environment.
Register Bin\VszLib.dll
with regsvr32.exe
(or VB6 IDE) and add a reference (Project | References...) in your project to 7-zip VB6 Helper 1.0. You only need to redistribute Bin\VszLib.dll
with your application, pdb
files are needed only for debugging purposes. Note that Bin\VszLib.dll
is compiled with line numbers in the source so that error logging can produce more useful traces.
The only publicly accessible class in the library is cVszArchive
. Here is a short description of the methods, properties and events in order of relevance (kind of).
Init([DllFile As String]) As Boolean
Optionally used to indicate 7z.dll
location. If DllFile
is empty first 7z.dll
is loaded from VszLib.dll
folder, then registry is inspected for 7-zip setup folder, finally lightweight 7za.dll
is attempt loaded from VszLib.dll
folder. Best practice is to place 7z.dll
next to VszLib.dll
and to not call Init
explicitly from client code. Extract/compress operation will call it if needed.
Note that 7za.dll
(from 7-zip extras) can be used to compress/extract only 7z archives (no zip support). The even smaller 7zxa.dll
(172KB) can be used to only extract 7z archives.
OpenArchive(ArchiveFile As String) As Boolean
Opens the archive using archive file extension to guess decompressor type. Currently supported file extension for update: 7z, zip, tar, bz2, gz, xz, wim. Other formats supported: rar, cab, chm, iso, msi, hfs, iso, arj, cpio, deb, dmg, fat, flv, lzh, lzma, lzma86, mbr, ntfs, exe, pmd, rpm, 001, swf, vhd, xar, z. Populates FileCount
and FileInfo
properties.
Extract(TargetFolder As String, [Filter]) As Boolean
Extracts files to TargetFolder
from a previously opened archive file. Optional Filter
can specify which file entries to extract by exact match (document.txt
), a filename mask (*.exe
) or an array of FileCount
booleans, each index indicating whether to decompress the file with same index (array entry set to True
) or to skip it (array entry set to False
). Raises Progress
event to indicate progress and to allow cancellation of the extraction.
Property FileCount As Long
(read-only)Returns number of file entries in the archive
Property FileInfo(FileIdx As Long)
(read-only)Returns an array with information about a file entry. Array indexes are: 0 - file name, 1 - attributes, 2 - size, 3 - bool if encrypted, 4 - CRC, 5 - file comment, 6 - creation time, 7 - last access time, 8 - last write time. Some of the entries can be Empty
if not supported by the current archive format.
AddFile(File As String, [Name As String], [Comment As String]) As Boolean
Adds a file to archive. File
must be an (absolute) path to an existing file. Optional Name
can specify name and relative folder in the archive the entry is going to be stored to. If Name
not specified, filename portion of File
is used as name in the root folder of the archive. Comment
is optional and (probably) not supported by all compressors.
CompressArchive(ArchiveFile As String) As Boolean
Creates an archive using previously added files. Compressor type is guessed by archive file extension. Raises Progress
event to indicate progress and to allow cancellation of the compression.
Property Parameter(ParamName As String) As Variant
(read/write)Specifies custom compression parameters. These correspond to -m
switch of command line 7z.exe
.
Setting compression level switch -mx3
or -mx=3
is translated to Parameter("x") = 3
.
Setting 7z compression method -m0=LZMA2
is translated to Parameter("0") = "LZMA2"
.
Setting multi-threading switch -mmt=on
or -mmt=3
is translated to Parameter("mt") = "on"
or Parameter("mt") = 3
.
Setting encrypt headers switch -mhe=on
is translated to Parameter("he") = "on"
. See more examples of -m switch for additional info.
Property Password As String
(read/write)Gets/sets password used during extraction/compression. If incorrect archive password is using, decompressor raises Data Error. Wrong password? error through Error
event.
Property VolumeSize As Double
(read/write)Gets/sets volume size in bytes for split volumes to be created during compression. Can be used with 7z archives only. For other formats splits output archive in VolumeSize
sized chunks which is not supported model by native decompressors.
Property FormatCount As Long
(read-only)Gets number of formats supported by 7z.dll
which has been loaded on Init
.
Property FormatInfo(FormatIdx As Long) As Variant
(read-only)Returns an array with information about compression format. Array indexes are: 0 - name, 1 - class ID, 2 - file extension(s), 3 - additional extensions (if any), 4 - bool if update supported, 5 - bool if keeps names, 6 - byte array with archive start signature, 7 - byte array with archive finish signature.
Property LastError As String
(read-only)Gets last error that occurred during last operation. Returns empty string if no error occurred.
Property PreserveDirectoryStructure As Boolean
Gets/sets whether to preserve directory structure of archive under TargetFolder
during extraction.
Event Progress(FileIdx As Long, Current As Double, Total As Double, Cancel As Boolean)
Raised when new information about current operation progress is available and to give the user a chance to cancel operation. FileIdx
is the index of the current file being extracted/compressed. This index can be used with FileInfo
property. Current
and Total
parameters can be using to calculate percentage completed. Cancel
can be set to abort current operation.
Event Error(Description As String, Source As String, Cancel As Boolean)
Raised when an unexpected condition occurs during current operation. Description
contains User cancelled when Cancel
gets set in Progress
event. Description
contains Data Error. Wrong password? if wrong password is supplied for extraction of encrypted archives. Can be raised when input/output files are inaccessible (permissions, network outages). Setting Cancel
indicates whether to finish operation or abort it immediately.
Event NewVolume(FileName As String)
Raised when creating multi-volume archives to indicate new file names that are created during compression. Useful if volumes are to be deleted on error or user cancellation.
BeforeExtract(ByVal FileIdx As Long, FileName As String, SkipFile As Boolean, Cancel As Boolean)
Raised before extracting a file from archive. FileName
can be used to change target output filename on the fly. SkipFile
can be used to selectively extract files based on logic that cannot be implemented with Filter
argument of Extract
method. Cancel
can be set to abort further extraction.