List Files an Directories in a Zip

Download Chilkat Zip ActiveX

Delphi source code example to open a .zip archive and list the file and directory names.

// Delphi example program to open a Zip archive and display
// the files/directories contained within.
procedure TForm1.Button3Click(Sender: TObject);
var
  i : Integer;
  success : Integer;
  n : Integer;
  entry: IChilkatZipEntry2;

begin
  ChilkatZip21.UnlockComponent('anything for 30-day trial');

  // Open a zip.
  success := ChilkatZip21.OpenZip('test.zip');
  if (success = 0) then
    begin
      ChilkatZip21.SaveLastError('zipErrorLog.txt');
      ShowMessage(ChilkatZip21.LastErrorText);
    end
  else
    begin
      Memo1.Lines.Clear();
      
      // Iterate over the files in the .zip
      n := ChilkatZip21.NumEntries;
      for i := 0 to n-1 do
        begin
            entry := ChilkatZip21.GetEntryByIndex(i);
            //Memo1.Lines.Add('C:\' + entry.FileName);

            if (entry.IsDirectory = 1) then
              Memo1.Lines.Add('DIR: ' + entry.FileName)
            else
               Memo1.Lines.Add(entry.FileName);

        end;

    end;

end;