(PowerBuilder) Another Path-in-Zip Example

Another example about getting the correct paths within a .zip.

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("myZip.zip")

// Add references to files:
li_Recurse = 1
li_Success = loo_Zip.AppendFiles("c:\~temp\a\subdir1\*",li_Recurse)

// Assuming that the file c:\temp\a\subdir1\dude.gif exists,
// the .zip will contain "dude.gif" without any path information.

// The component has no
// choice but to use "c:\\temp\\a\\subdir1" as the root.
// It's not possible for the component to know if you
// wanted subdir1\ or a\subdir1\ or temp\a\subdir1
// paths prefixed for each file added.

// To control the path within the zip, set the AppendFromDir
// directory and then use a relative path in AppendFiles.
// For example:
loo_Zip.AppendFromDir = "c:\~temp\a"

li_Success = loo_Zip.AppendFiles("subdir1\*",li_Recurse)

// This causes c:\temp\a\subdir1\dude.gif to be added as
// "subdir1\dude.gif" within the .zip.

// If you need the path within the .zip to be "a\subdir", then
// do this:
loo_Zip.AppendFromDir = "c:\~temp"
li_Success = loo_Zip.AppendFiles("a\subdir1\*",li_Recurse)

li_Success = loo_Zip.WriteZipAndClose()


destroy loo_Zip