IZipArchiveEntry.Remove

Синтаксис

Remove;

Remove();

Описание

Метод Remove удаляет текущий элемент из архива.

Пример

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

Добавьте ссылку на системную сборку 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("Old/");
    If Not IsNull(ZIPEntry) Then
        ZIPEntry.Remove;
    End If;
    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["Old/"];
    If ZIPEntry <> Null Then
        ZIPEntry.Remove();
    End If;
    System.Runtime.InteropServices.Marshal.ReleaseComObject(ZIP);
End Sub;

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

См. также:

IZipArchiveEntry