(PowerBuilder) How to Add a Directory Path to Files when Zipping

Demonstrates how to add a directory path to files when zipping.

For example, if files are located in directory_name:

-directory_name
--123.txt
--321.txt

The need to to create a .zip with this directory structure:

-directory_name
--123.txt
--321.txt

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Zip
integer li_Success
integer li_Recurse

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

loo_Zip = create oleobject
// Use "Chilkat_9_5_0.Zip" for versions of Chilkat < 10.0.0
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Intialize the zip object by calling NewZip.
li_Success = loo_Zip.NewZip("qa_output/test.zip")

// Set a path prefix:
loo_Zip.PathPrefix = "directory_name/"

// Add references to files:
li_Recurse = 1
li_Success = loo_Zip.AppendFiles("c:/zipTest/directory_name/*",li_Recurse)
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

Write-Debug "success."


destroy loo_Zip