PowerBuilder

Controlling paths within a Zip

See more Zip Examples

How to control the paths stored within a .zip. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Zip
long li_Recurse

li_Success = 0

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

loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

li_Recurse = 1

loo_Zip.AppendFromDir = "/temp/filesToZip"
li_Success = loo_Zip.AppendFiles("*.xml",li_Recurse)

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

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

//  Clear the zip object.
li_Success = loo_Zip.NewZip("test2.zip")

loo_Zip.AppendFromDir = "/temp/filesToZip/images"
li_Success = loo_Zip.AppendFiles("*.xml",li_Recurse)
loo_Zip.AppendFromDir = "/temp/filesToZip/text"
li_Success = loo_Zip.AppendFiles("*.xml",li_Recurse)

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

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

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

//  Clear the zip object.
li_Success = loo_Zip.NewZip("test3.zip")

loo_Zip.PathPrefix = "chilkat/"

loo_Zip.AppendFromDir = "/temp/filesToZip/images"
li_Success = loo_Zip.AppendFiles("*.xml",li_Recurse)
loo_Zip.AppendFromDir = "/temp/filesToZip/text"
li_Success = loo_Zip.AppendFiles("*.xml",li_Recurse)

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

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

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

//  Clear the zip object.
li_Success = loo_Zip.NewZip("test4.zip")

loo_Zip.PathPrefix = ""
loo_Zip.DiscardPaths = 1

loo_Zip.AppendFromDir = "/temp/filesToZip/"
li_Success = loo_Zip.AppendFiles("*",li_Recurse)

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

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

//  You can combine PathPrefix with DiscardPaths:

//  Clear the zip object.
li_Success = loo_Zip.NewZip("test5.zip")

loo_Zip.PathPrefix = "chilkat/"
loo_Zip.DiscardPaths = 1

loo_Zip.AppendFromDir = "/temp/filesToZip/"
li_Success = loo_Zip.AppendFiles("*",li_Recurse)

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

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

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

//  Clear the zip object.
li_Success = loo_Zip.NewZip("test6.zip")

loo_Zip.DiscardPaths = 1
loo_Zip.AppendFromDir = "/temp/filesToZip/"

//  Get all .gif files:
loo_Zip.PathPrefix = "gif/"
li_Success = loo_Zip.AppendFiles("*.gif",li_Recurse)

//  Get all .jpg files:
loo_Zip.PathPrefix = "jpg/"
li_Success = loo_Zip.AppendFiles("*.jpg",li_Recurse)

//  Get all .xml files:
loo_Zip.PathPrefix = "xml/"
li_Success = loo_Zip.AppendFiles("*.xml",li_Recurse)

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

li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if



destroy loo_Zip