有没有办法在不包含原始文件的目录结构的情况下创建 TZipfile？

Question

The title says it all.

I want to create an anonymous Zip file using TZipFile class with simply the file names and no directory structure as it will be distributed to third parties. Reading through all the responses here and the TZipFile documentation I cannot see a way to do it.

Answer 1

Do not specify ArchiveFileName parameter of Add() method:

ArchiveFileName is the full path of the file in the archive. If the parameter is not specified, the default value is ExtractFileName(FileName).

  with TZipFile.Create do
    try
      Open('D:\MyZipFile.zip', zmWrite);
      Add('D:\SomeFileToAdd.ext');
    finally
      Free;
    end;

This way, you'll find SomeFileToAdd.ext instead of D:\\SomeFileToAdd.ext .