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
(Delphi ActiveX) How to Add a Directory Path to Files when ZippingDemonstrates how to add a directory path to files when zipping. For example, if files are located in directory_name: -directory_name --123.txt --321.txt The need to to create a .zip with this directory structure: -directory_name --123.txt --321.txt
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var zip: TChilkatZip; success: Integer; recurse: Integer; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. zip := TChilkatZip.Create(Self); // Intialize the zip object by calling NewZip. success := zip.NewZip('qa_output/test.zip'); // Set a path prefix: zip.PathPrefix := 'directory_name/'; // Add references to files: recurse := 1; success := zip.AppendFiles('c:/zipTest/directory_name/*',recurse); if (success <> 1) then begin Memo1.Lines.Add(zip.LastErrorText); Exit; end; success := zip.WriteZipAndClose(); if (success <> 1) then begin Memo1.Lines.Add(zip.LastErrorText); Exit; end; Memo1.Lines.Add('success.'); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.