This sample shows how to rename a file inside a ZIP archive.
Download ZipForge | Learn More | All Delphi samples
program renamefile;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ZipForge;
var
Archiver: TZipForge;
begin
Archiver := TZipForge.Create(nil);
try
Archiver.FileName := 'c:\test.zip';
Archiver.OpenArchive(fmOpenReadWrite);
Archiver.RenameFile('file.txt', 'renamed_file.txt');
Archiver.CloseArchive();
except
on E: Exception do
begin
Writeln('Error: ' + E.Message);
end;
end;
Archiver.Free;
end.
Download ZipForge | Learn More | All Delphi samples
|
|
|
Current version: 6.95
Released: January 21, 2019
Price: $ 69
|
|
I don't think I've ever had a better support experience in regard to any of the 3rd party tools we use.
Tim Stickley
|
|
|