(PureBasic) Example for the Zip AppendNewDir Function

See more Zip Examples

Demonstrates the Zip AppendNewDir 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)

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

    entry.i = CkZip::ckAppendNewDir(zip,"dirA")
    CkZipEntry::ckDispose(entry)

    entry = CkZip::ckAppendNewDir(zip,"dirB")
    CkZipEntry::ckDispose(entry)

    entry = CkZip::ckAppendNewDir(zip,"dirC")
    CkZipEntry::ckDispose(entry)

    ; 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