(PureBasic) Example for the Zip AppendNew Function

See more Zip Examples

Demonstrates the Zip AppendNew function.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.pb"

Procedure ChilkatExample()

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

    zip.i = CkZip::ckCreate()
    If zip.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    zipPath.s = "c:/temp/test.zip"

    ; Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
    CkZip::ckNewZip(zip,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.
    entry1.i = CkZip::ckAppendNew(zip,"empty.txt")
    CkZipEntry::ckDispose(entry1)

    ; Append another entry..
    entry2.i = CkZip::ckAppendNew(zip,"abc/helloWorld.txt")

    ; Add some data to this entry..
    CkZipEntry::ckAppendString(entry2,"Hello World","utf-8")
    CkZipEntry::ckDispose(entry2)

    ; Write the zip, which contains 2 files:  empty.txt and helloWorld.txt
    CkZip::setCkFileName(zip, zipPath)
    success = CkZip::ckWriteZipAndClose(zip)
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug "Success."


    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure