Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Zip Append Files and Entry TypeSee more Zip ExamplesDemonstrates appending files to a zip object for writing a .zip. Also explains the "entry type".
LOCAL lnSuccess LOCAL loZip LOCAL loEntry LOCAL lcZipPath LOCAL lnRecurse LOCAL lnSaveExtraPath LOCAL lnArchiveOnly LOCAL lnIncludeHidden LOCAL lnIncludeSystem LOCAL lnCount LOCAL i LOCAL loETemp * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loZip = CreateObject('Chilkat_9_5_0.Zip') lcZipPath = "c:/temp/qa_output/out.zip" * Initialize the zip object with the path of the .zip to be created. loZip.NewZip(lcZipPath) * Recursively append to the zip object the paths of the files and directories in a directory tree. * At this point we are not creating the .zip, nor are we reading the contents of the files. * We are simply appending references to the files and directories in the local filesystem * that will get processed when WriteZip is called. lnRecurse = 1 lnSaveExtraPath = 0 lnArchiveOnly = 0 lnIncludeHidden = 1 lnIncludeSystem = 0 lnSuccess = loZip.AppendFilesEx("c:/temp/files_to_zip",lnRecurse,lnSaveExtraPath,lnArchiveOnly,lnIncludeHidden,lnIncludeSystem) IF (lnSuccess = 0) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF * Note: We can iterate over the references to the files that will be processed when zipping: lnCount = loZip.NumEntries i = 0 DO WHILE i < lnCount loEntry = loZip.GetEntryByIndex(i) ? loEntry.FileName + " entryType = " + STR(loEntry.EntryType) RELEASE loEntry i = i + 1 ENDDO ? "----" * Sample output for the above loop: * The entry type = 1, because these are entries that are references to files in the local filesystem * that are to be processed when the zip is written. * hamlet.xml entryType = 1 * hello.pdf entryType = 1 * ... * ... * Possible entry type values: * 0 - Mapped Entry: An entry in an existing Zip file. * 1 - File Entry: A file not yet in memory, but referenced. These entries are added by calling AppendFiles, AppendFilesEx, AppendOneFileOrDir, etc. * 2 - Data Entry: An entry containing uncompressed data from memory. These entries are added by calling AppendData, AppendString, etc. * 3 - Null Entry: An entry that no longer exists in the .zip. * 4 - New Directory Entry: A directory entry added by calling AppendNewDir. * The application can continue to add additional entries. * For example: loETemp = loZip.AppendString("helloWorld.txt","Hello World") RELEASE loETemp * Now let's have a look at what will get zipped when we write the zip: lnCount = loZip.NumEntries i = 0 DO WHILE i < lnCount loEntry = loZip.GetEntryByIndex(i) ? loEntry.FileName + " entryType = " + STR(loEntry.EntryType) RELEASE loEntry i = i + 1 ENDDO ? "----" * You can see that "helloWorld.txt" is added. * Its entryType = 2, which means it is in-memory data (it is not a reference to a file in the local filesystem). * hamlet.xml entryType = 1 * hello.pdf entryType = 1 * ... * ... * helloWorld.txt entryType = 2 * ---------------------------------------------------------------------------- * Now we'll write the zip to a .zip file. loZip.FileName = lcZipPath lnSuccess = loZip.WriteZip() IF (lnSuccess = 0) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF * Let's look again at the entries in the .zip lnCount = loZip.NumEntries i = 0 DO WHILE i < lnCount loEntry = loZip.GetEntryByIndex(i) ? loEntry.FileName + " entryType = " + STR(loEntry.EntryType) RELEASE loEntry i = i + 1 ENDDO ? "----" * After writing the .zip, the entry types change to 0. * Entry type 0 indicates that it's a "mapped entry", which is an entry in an existing (and currently open) .zip file. * hamlet.xml entryType = 0 * hello.pdf entryType = 0 * ... * ... * helloWorld.txt entryType = 0 * ---------------------------------------------------------------------------- * If desired, we could continue adding additional entries of any kind (files or data) to the currently open .zip archive... loETemp = loZip.AppendString("helloWorld2.txt","Hello World 2") RELEASE loETemp * Write the .zip, including the new entries.. lnSuccess = loZip.WriteZip() IF (lnSuccess = 0) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF * Finally, let's look again at the entries in the .zip lnCount = loZip.NumEntries i = 0 DO WHILE i < lnCount loEntry = loZip.GetEntryByIndex(i) ? loEntry.FileName + " entryType = " + STR(loEntry.EntryType) RELEASE loEntry i = i + 1 ENDDO ? "----" * hamlet.xml entryType = 0 * hello.pdf entryType = 0 * ... * ... * helloWorld.txt entryType = 0 * helloWorld2.txt entryType = 0 loZip.CloseZip() ? "Success" RELEASE loZip |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.