PureBasic

Example for the Zip AppendNewDir Function

See more Zip Examples

Demonstrates the Zip AppendNewDir function. PureBasic

IncludeFile "CkZip.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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

    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)

    ; AddEmpty is used when you wish to add a directory or empty file to the zip
    ; such that when the zip is unzipped, the directory will be created
    ; even if it contains no files.

    dirFlag.i = 1

    CkZip::ckAddEmpty(zip,dirFlag,"dirA")
    CkZip::ckAddEmpty(zip,dirFlag,"dirB")
    CkZip::ckAddEmpty(zip,dirFlag,"dirC")

    ; Write the zip, which contains 3 empty directories: dirA, dirB, dirC.
    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