PureBasic

Zip One File

See more Zip Examples

Zip a single file. PureBasic

IncludeFile "CkZip.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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

    success = CkZip::ckNewZip(zip,"test.zip")
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; In this example, the file we wish to zip is /temp/abc123/HelloWorld123.txt

    ; Add a reference to a single file by calling AddFile
    ; Note: You may use either forward or backward slashes.
    saveExtraPath.i = 0
    success = CkZip::ckAddFile(zip,"/temp/abc123/HelloWorld123.txt",saveExtraPath)
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    success = CkZip::ckWriteZipAndClose(zip)
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; A .zip containing "HelloWorld123.txt" with no path information has been created.
    Debug "Zip Created!"

    ; Perhaps you want to include a path in the .zip such that when unzipping, a sub-directory
    ; is automatically created and the file unzipped into it.  Use PathPrefix:

    ; (We'll skip checking the success/failure return value.)

    ; Set a PathPrefix to get the relative path you want:
    ; The .zip will contain this entry: "myApp/HelloWorld123.txt"
    success = CkZip::ckNewZip(zip,"test2.zip")
    CkZip::setCkPathPrefix(zip, "myApp/")
    success = CkZip::ckAddFile(zip,"/temp/abc123/HelloWorld123.txt",saveExtraPath)
    success = CkZip::ckWriteZipAndClose(zip)


    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure