(DataFlex) Another Path-in-Zip Example

Another example about getting the correct paths 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

    // 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

    // Intialize the zip object by calling NewZip.
    Get ComNewZip Of hoZip "myZip.zip" To iSuccess

    // Add references to files:
    Move True To iRecurse
    Get ComAppendFiles Of hoZip "c:\temp\a\subdir1\*" iRecurse To iSuccess

    // Assuming that the file c:\temp\a\subdir1\dude.gif exists,
    // the .zip will contain "dude.gif" without any path information.

    // The component has no
    // choice but to use "c:\\temp\\a\\subdir1" as the root.
    // It's not possible for the component to know if you
    // wanted subdir1\ or a\subdir1\ or temp\a\subdir1
    // paths prefixed for each file added.

    // To control the path within the zip, set the AppendFromDir
    // directory and then use a relative path in AppendFiles.
    // For example:
    Set ComAppendFromDir Of hoZip To "c:\temp\a"

    Get ComAppendFiles Of hoZip "subdir1\*" iRecurse To iSuccess

    // This causes c:\temp\a\subdir1\dude.gif to be added as
    // "subdir1\dude.gif" within the .zip.

    // If you need the path within the .zip to be "a\subdir", then
    // do this:
    Set ComAppendFromDir Of hoZip To "c:\temp"
    Get ComAppendFiles Of hoZip "a\subdir1\*" iRecurse To iSuccess

    Get ComWriteZipAndClose Of hoZip To iSuccess


End_Procedure