Sample code for 30+ languages & platforms
Xbase++

Controlling paths within a Zip

See more Zip Examples

How to control the paths stored within a .zip.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oZip
LOCAL nRecurse

nSuccess := 0

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

oZip := CreateObject("Chilkat.Zip")

//  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.
oZip:NewZip("test1.zip")

nRecurse := 1

oZip:AppendFromDir := "/temp/filesToZip"
nSuccess := oZip:AppendFiles("*.xml", nRecurse)

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

nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  Clear the zip object.
nSuccess := oZip:NewZip("test2.zip")

oZip:AppendFromDir := "/temp/filesToZip/images"
nSuccess := oZip:AppendFiles("*.xml", nRecurse)
oZip:AppendFromDir := "/temp/filesToZip/text"
nSuccess := oZip:AppendFiles("*.xml", nRecurse)

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

nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

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

//  Clear the zip object.
nSuccess := oZip:NewZip("test3.zip")

oZip:PathPrefix := "chilkat/"

oZip:AppendFromDir := "/temp/filesToZip/images"
nSuccess := oZip:AppendFiles("*.xml", nRecurse)
oZip:AppendFromDir := "/temp/filesToZip/text"
nSuccess := oZip:AppendFiles("*.xml", nRecurse)

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

nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

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

//  Clear the zip object.
nSuccess := oZip:NewZip("test4.zip")

oZip:PathPrefix := ""
oZip:DiscardPaths := 1

oZip:AppendFromDir := "/temp/filesToZip/"
nSuccess := oZip:AppendFiles("*", nRecurse)

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

nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  You can combine PathPrefix with DiscardPaths:

//  Clear the zip object.
nSuccess := oZip:NewZip("test5.zip")

oZip:PathPrefix := "chilkat/"
oZip:DiscardPaths := 1

oZip:AppendFromDir := "/temp/filesToZip/"
nSuccess := oZip:AppendFiles("*", nRecurse)

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

nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

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

//  Clear the zip object.
nSuccess := oZip:NewZip("test6.zip")

oZip:DiscardPaths := 1
oZip:AppendFromDir := "/temp/filesToZip/"

//  Get all .gif files:
oZip:PathPrefix := "gif/"
nSuccess := oZip:AppendFiles("*.gif", nRecurse)

//  Get all .jpg files:
oZip:PathPrefix := "jpg/"
nSuccess := oZip:AppendFiles("*.jpg", nRecurse)

//  Get all .xml files:
oZip:PathPrefix := "xml/"
nSuccess := oZip:AppendFiles("*.xml", nRecurse)

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

nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

oZip:destroy()