(DataFlex) Modify Name of File Stored within Zip when Creating a .zip

Demonstrates how to create a zip where the filename within the .zip is different than the filename that was added from the filesystem.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Boolean iSaveExtraPath
    Variant vEntry
    Handle hoEntry
    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

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

    // Add a reference to a file on disk to the zip object.
    // (When appending files to a zip, the files are not actually
    // read into memory.  References to the file(s) are added.
    // When WriteZip is called, the referenced files are streamed in
    // and compressed to the .zip.)
    Move False To iSaveExtraPath
    Get ComAppendOneFileOrDir Of hoZip "/temp/a/hamlet.xml" iSaveExtraPath To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The zip object references a single file.
    // Retrieve the entry object...

    Get ComGetEntryByIndex Of hoZip 0 To vEntry
    If (IsComObject(vEntry)) Begin
        Get Create (RefClass(cComChilkatZipEntry)) To hoEntry
        Set pvComObject Of hoEntry To vEntry
    End

    // Set the entry's filename to anything you want:
    Set ComFileName Of hoEntry To "somethingElse.xml"

    // Note: Internally, the zip component retains the name of
    // the file referenced.  The current setting of the zip entry's
    // FileName property is stored in the .zip when writing.

    // The zip written here will contain somethingElse.xml
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Zip created!"
    End



End_Procedure