(DataFlex) Controlling paths within a Zip

How to control the paths stored within a .zip.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Boolean iRecurse
    String sTemp1

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

    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End

    // This is the directory structure on the local filesystem
    // from which we'll create .zip archives:
    // The root directory is /temp/filesToZip
    // 
    // We have these files:
    // /temp/filesToZip/faxCover.doc
    // /temp/filesToZip/exe/Setup.exe
    // /temp/filesToZip/images/cheese.jpg
    // /temp/filesToZip/images/dude.gif
    // /temp/filesToZip/images/img3.gif
    // /temp/filesToZip/images/img4.gif
    // /temp/filesToZip/images/img5.gif
    // /temp/filesToZip/images/scream.jpg
    // /temp/filesToZip/images/imageInfo/scream.xml
    // /temp/filesToZip/images/imageInfo/cheese.xml
    // /temp/filesToZip/text/html/bonaireFishing.html
    // /temp/filesToZip/text/html/upload.html
    // /temp/filesToZip/text/txt/hello.txt
    // /temp/filesToZip/text/txt/HelloWorld123.txt
    // /temp/filesToZip/text/xml/hamlet.xml
    // /temp/filesToZip/text/xml/pigs.xml

    // There are three properties to help control the paths stored
    // within a .zip:
    // AppendFromDir
    // PathPrefix
    // DiscardPaths
    // 

    // First we'll demonstrate AppendFromDir
    // When a directory tree is appended via AppendFiles or
    // AppendFilesEx, the AppendFromDir sets the base of the 
    // directory tree appended (if the file pattern contains a 
    // relative path, or no path at all).

    // Clear the zip object.
    Get ComNewZip Of hoZip "test1.zip" To iSuccess

    Move True To iRecurse

    Set ComAppendFromDir Of hoZip To "/temp/filesToZip"
    Get ComAppendFiles Of hoZip "*.xml" iRecurse To iSuccess

    // The zip will contain:
    // images/imageInfo/scream.xml
    // images/imageInfo/cheese.xml
    // text/xml/hamlet.xml
    // text/xml/pigs.xml

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Clear the zip object.
    Get ComNewZip Of hoZip "test2.zip" To iSuccess

    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/images"
    Get ComAppendFiles Of hoZip "*.xml" iRecurse To iSuccess
    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/text"
    Get ComAppendFiles Of hoZip "*.xml" iRecurse To iSuccess

    // The zip will contain:
    // imageInfo/scream.xml
    // imageInfo/cheese.xml
    // xml/hamlet.xml
    // xml/pigs.xml

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The PathPrefix property adds an arbitrary path prefix to each
    // file in the .zip.
    // For example:

    // Clear the zip object.
    Get ComNewZip Of hoZip "test3.zip" To iSuccess

    Set ComPathPrefix Of hoZip To "chilkat/"

    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/images"
    Get ComAppendFiles Of hoZip "*.xml" iRecurse To iSuccess
    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/text"
    Get ComAppendFiles Of hoZip "*.xml" iRecurse To iSuccess

    // The zip will contain:
    // chilkat/imageInfo/scream.xml
    // chilkat/imageInfo/cheese.xml
    // chilkat/xml/hamlet.xml
    // chilkat/xml/pigs.xml

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The DiscardPaths property removes the path from each file
    // in the zip:
    // For example:

    // Clear the zip object.
    Get ComNewZip Of hoZip "test4.zip" To iSuccess

    Set ComPathPrefix Of hoZip To ""
    Set ComDiscardPaths Of hoZip To True

    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/"
    Get ComAppendFiles Of hoZip "*" iRecurse To iSuccess

    // The zip will contain:
    // faxCover.doc
    // Setup.exe
    // cheese.jpg
    // dude.gif
    // img3.gif
    // img4.gif
    // img5.gif
    // scream.jpg
    // scream.xml
    // cheese.xml
    // bonaireFishing.html
    // upload.html
    // hello.txt
    // HelloWorld123.txt
    // hamlet.xml
    // pigs.xml

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // You can combine PathPrefix with DiscardPaths:

    // Clear the zip object.
    Get ComNewZip Of hoZip "test5.zip" To iSuccess

    Set ComPathPrefix Of hoZip To "chilkat/"
    Set ComDiscardPaths Of hoZip To True

    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/"
    Get ComAppendFiles Of hoZip "*" iRecurse To iSuccess

    // The zip will contain:
    // chilkat/faxCover.doc
    // chilkat/Setup.exe
    // chilkat/cheese.jpg
    // chilkat/dude.gif
    // chilkat/img3.gif
    // chilkat/img4.gif
    // chilkat/img5.gif
    // chilkat/scream.jpg
    // chilkat/scream.xml
    // chilkat/cheese.xml
    // chilkat/bonaireFishing.html
    // chilkat/upload.html
    // chilkat/hello.txt
    // chilkat/HelloWorld123.txt
    // chilkat/hamlet.xml
    // chilkat/pigs.xml

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // One last example -- combine DiscardPaths with PathPrefix
    // with multiple calls to AppendFiles:

    // Clear the zip object.
    Get ComNewZip Of hoZip "test6.zip" To iSuccess

    Set ComDiscardPaths Of hoZip To True
    Set ComAppendFromDir Of hoZip To "/temp/filesToZip/"

    // Get all .gif files:
    Set ComPathPrefix Of hoZip To "gif/"
    Get ComAppendFiles Of hoZip "*.gif" iRecurse To iSuccess

    // Get all .jpg files:
    Set ComPathPrefix Of hoZip To "jpg/"
    Get ComAppendFiles Of hoZip "*.jpg" iRecurse To iSuccess

    // Get all .xml files:
    Set ComPathPrefix Of hoZip To "xml/"
    Get ComAppendFiles Of hoZip "*.xml" iRecurse To iSuccess

    // The zip will contain:
    // jpg/cheese.jpg
    // gif/dude.gif
    // gif/img3.gif
    // gif/img4.gif
    // gif/img5.gif
    // jpg/scream.jpg
    // xml/scream.xml
    // xml/cheese.xml
    // xml/hamlet.xml
    // xml/pigs.xml

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure