(DataFlex) Control Stored ZIP Paths Using AppendFromDir

See more Zip Examples

This example demonstrates how to use the AppendFromDir property to control which portion of a local filesystem path is stored within a ZIP archive.

When files are added using methods such as AppendFiles, AppendFilesEx, or AddFile, the stored ZIP path is determined relative to the AppendFromDir directory.

This property is especially useful when:

Creating ZIP archives with clean relative paths
Excluding unwanted leading directory portions from ZIP entries
Packaging projects or directory trees while preserving selected relative path information

Suppose the local filesystem contains:

c:/abc/123/myAppDir/readme.txt c:/abc/123/myAppDir/config/settings.json c:/abc/123/myAppDir/images/logo.png

And suppose:

zip.AppendFromDir = "c:/abc/123";

Then the following call:

zip.AppendFiles("c:/abc/123/myAppDir/*",True);

Will store these paths in the ZIP archive:

myAppDir/readme.txt myAppDir/config/settings.json myAppDir/images/logo.png

Without AppendFromDir, the ZIP archive paths would instead begin relative to the append root:

readme.txt config/settings.json images/logo.png

The AppendFromDir property affects subsequently added filesystem entries.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoZip
    Boolean iRecurse
    String sTemp1

    Move False To iSuccess

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

    // Create a new ZIP archive.
    Get ComNewZip Of hoZip "myApp.zip" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Set the AppendFromDir property.
    // 
    // Paths stored in the ZIP archive will be relative to:
    // 
    //     c:/abc/123
    // 
    Set ComAppendFromDir Of hoZip To "c:/abc/123"

    // Recursively add files beneath:
    // 
    //     c:/abc/123/myAppDir
    // 
    // Because AppendFromDir = "c:/abc/123",
    // the ZIP paths will begin with:
    // 
    //     myAppDir/
    // 
    Move True To iRecurse
    Get ComAppendFiles Of hoZip "c:/abc/123/myAppDir/*" iRecurse To iSuccess

    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the ZIP archive and close it.
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "ZIP archive created successfully."


End_Procedure