Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) Zip a Directory TreeDemonstrates how to zip an entire directory tree into a .zip archive.
LOCAL loZip LOCAL lnSuccess LOCAL lnRecurse * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip') loZip = CreateObject('Chilkat.Zip') lnSuccess = loZip.NewZip("test.zip") IF (lnSuccess <> 1) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF * Append a directory tree. The call to AppendFiles does * not read the file contents or append them to the zip * object in memory. It simply appends references * to the files so that when WriteZip or WriteZipAndClose * is called, the referenced files are streamed and compressed * into the .zip output file. lnRecurse = 1 lnSuccess = loZip.AppendFiles("c:/temp/a/*",lnRecurse) IF (lnSuccess <> 1) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF lnSuccess = loZip.WriteZipAndClose() IF (lnSuccess <> 1) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF ? "Zip Created!" RELEASE loZip |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.