(PureBasic) How to Add a Directory Path to Files when Zipping

Demonstrates how to add a directory path to files when zipping.

For example, if files are located in directory_name:

-directory_name
--123.txt
--321.txt

The need to to create a .zip with this directory structure:

-directory_name
--123.txt
--321.txt

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"

Procedure ChilkatExample()

    ; This example requires 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

    ; Intialize the zip object by calling NewZip.
    success.i = CkZip::ckNewZip(zip,"qa_output/test.zip")

    ; Set a path prefix:
    CkZip::setCkPathPrefix(zip, "directory_name/")

    ; Add references to files:
    recurse.i = 1
    success = CkZip::ckAppendFiles(zip,"c:/zipTest/directory_name/*",recurse)
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    success = CkZip::ckWriteZipAndClose(zip)
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug "success."


    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure