PowerBuilder

Unzip all Files to a Single Directory (Ignoring Subdirectories in Zip)

See more Zip Examples

Demonstrates how to unzip all files into a single directory, ignoring the internal directory structure of the files in the .zip. PowerBuilder

integer li_rc
integer li_Success
string ls_OutDir
oleobject loo_Fac
oleobject loo_Zip
integer li_NumUnzipped

li_Success = 0

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ls_OutDir = "c:/temp/testUnzipDir"

// Make sure our output directory exists.
loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")
if li_rc < 0 then
    destroy loo_Fac
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Fac.DirEnsureExists(ls_OutDir)
if li_Success = 0 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Fac
    return
end if

loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")

// In this example, the xml_files.zip contains some files in the subdirectories "dir1" and also "dir2/dir3".

// a1.xml
// b1.xml
// c1.xml
// dir1/a2.xml
// dir1/c2.xml
// dir2/dir3/c3.xml

li_Success = loo_Zip.OpenZip("qa_data/zips/xml_files.zip")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Fac
    destroy loo_Zip
    return
end if

// Unzip all files into the directory c:/temp/testUnzipDir
li_NumUnzipped = loo_Zip.UnzipInto(ls_OutDir)
if li_NumUnzipped < 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Fac
    destroy loo_Zip
    return
end if

Write-Debug "Num unzipped = " + string(li_NumUnzipped)

// After unzipping via UnzipInto, we have this:

// c:\temp\testUnzipDir\a1.xml
// c:\temp\testUnzipDir\b1.xml
// c:\temp\testUnzipDir\c1.xml
// c:\temp\testUnzipDir\a2.xml
// c:\temp\testUnzipDir\c2.xml
// c:\temp\testUnzipDir\c3.xml

loo_Zip.CloseZip()

Write-Debug "Success."


destroy loo_Fac
destroy loo_Zip