IZipArchiveEntry.Rename

Синтаксис

Rename(Name: String);

Rename(Name: String);

Параметры

Name. Новое наименование.

Описание

Метод Rename переименовывает файл/папку внутри архива.

Пример

Для выполнения примера предполагается наличие архива «D:\Work\Archives\Data.zip». В архив добавлены папка «Other» и файл «WDI.xls» с данными.

Добавьте ссылку на системную сборку IO. При работе в Fore.NET добавьте ссылку на сборку ForeIO.

Sub UserProc;
Var
    ZIP: IZipArchive;
    ZIPEntry: IZipArchiveEntry;
Begin
    ZIP := New ZipArchive.Create("D:\Work\Archives\Data.zip", ZipMode.Update);
    ZIPEntry := ZIP.ItemByName("Other/");
    ZIPEntry.Rename("Old");
    ZIPEntry := ZIP.ItemByName("WDI.xls");
    ZIPEntry.Rename("WDI_Old.xls");
    Dispose ZIP;
End Sub UserProc;

Imports Prognoz.Platform.Interop.ForeIO;

Public Shared Sub Main(Params: StartParams);
Var
    ZIP: IZipArchive = New ZipArchiveClass();
    ZIPEntry: IZipArchiveEntry;
Begin
    ZIP.Create("D:\Work\Archives\Data.zip", ZipMode.zmUpdate, ZipCompressionLevel.zcDefaultCompression);
    ZIPEntry := ZIP.ItemByName["Other/"];
    ZIPEntry.Rename("Old");
    ZIPEntry := ZIP.ItemByName["WDI.xls"];
    ZIPEntry.Rename("WDI_Old.xls");
    System.Runtime.InteropServices.Marshal.ReleaseComObject(ZIP);
End Sub;

В результате выполнения примера в архиве «Data.zip» будут переименованы указанные папка и файл.

См. также:

IZipArchiveEntry