(PowerBuilder) Example for the Zip AppendNew Function

See more Zip Examples

Demonstrates the Zip AppendNew function.

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

integer li_rc
oleobject loo_Zip
integer li_Success
string ls_ZipPath
oleobject loo_Entry1
oleobject loo_Entry2

// This example assumes 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

ls_ZipPath = "c:/temp/test.zip"

// Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
loo_Zip.NewZip(ls_ZipPath)

// Append a new and empty file to the zip object.
// This does not write the zip file.  It simply adds an entry
// that will get processed when the zip is written.
loo_Entry1 = loo_Zip.AppendNew("empty.txt")
destroy loo_Entry1

// Append another entry..
loo_Entry2 = loo_Zip.AppendNew("abc/helloWorld.txt")

// Add some data to this entry..
loo_Entry2.AppendString("Hello World","utf-8")
destroy loo_Entry2

// Write the zip, which contains 2 files:  empty.txt and helloWorld.txt
loo_Zip.FileName = ls_ZipPath
li_Success = loo_Zip.WriteZipAndClose()
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

Write-Debug "Success."


destroy loo_Zip