Visual Basic 6.0

Unzip an Entire ZIP Archive While Preserving Directory Structure

See more Zip Examples

Extract an Entire ZIP Archive While Preserving Directory Structure

This example demonstrates how to use the Unzip method to extract all files and directories from a ZIP archive.

The example shows how the stored ZIP directory structure is recreated beneath the target extraction directory.

Suppose the ZIP archive contains:

aaa/pigs.json
bbb/base64Cert.txt
bbb/sub1/brasil_cert.pem
bbb/sub2/penguins.gif
bbb/sub2/starfish.jpg
hamlet.xml
hello.pdf

After extraction to:

c:/temp/testDir

The following filesystem structure will be created:

c:/temp/testDir/aaa/pigs.json
c:/temp/testDir/bbb/base64Cert.txt
c:/temp/testDir/bbb/sub1/brasil_cert.pem
c:/temp/testDir/bbb/sub2/penguins.gif
c:/temp/testDir/bbb/sub2/starfish.jpg
c:/temp/testDir/hamlet.xml
c:/temp/testDir/hello.pdf

If the target extraction directory does not already exist, it is automatically created.

The Unzip method returns the number of files extracted, or -1 if the extraction fails.

Visual Basic 6.0

Dim success As Long
success = 0

Dim zip As New ChilkatZip

' Open an existing ZIP archive.
success = zip.OpenZip("qa_data/zips/sample.zip")
If (success = 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

' ------------------------------------------------------------
' Extract all files to:
' 
'     c:/temp/testDir
' 
' If the target directory does not already exist,
' Chilkat will automatically create it.
' 
' The Unzip method recreates the stored ZIP directory
' structure beneath the target directory.
' 
Dim numFilesUnzipped As Long
numFilesUnzipped = zip.Unzip("c:/temp/testDir")

If (numFilesUnzipped < 0) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

Debug.Print "Number of files extracted = " & numFilesUnzipped
Debug.Print ""

' ------------------------------------------------------------
' Suppose the ZIP archive contains these entries:
' 
'     aaa/pigs.json
'     bbb/base64Cert.txt
'     bbb/sub1/brasil_cert.pem
'     bbb/sub2/penguins.gif
'     bbb/sub2/starfish.jpg
'     hamlet.xml
'     hello.pdf
' 
' After extraction, the following files will exist:
' 
'     c:/temp/testDir/aaa/pigs.json
'     c:/temp/testDir/bbb/base64Cert.txt
'     c:/temp/testDir/bbb/sub1/brasil_cert.pem
'     c:/temp/testDir/bbb/sub2/penguins.gif
'     c:/temp/testDir/bbb/sub2/starfish.jpg
'     c:/temp/testDir/hamlet.xml
'     c:/temp/testDir/hello.pdf
' 
' The ZIP directory structure is preserved during extraction.

' Close the ZIP archive.
zip.CloseZip 

Debug.Print "Unzip completed successfully."