UnpackFile(Path: String);
Path. Путь к папке, в которую необходимо распаковать текущий элемент.
Метод UnpackFile распаковывает текущий элемент в указанную папку на диске.
Если текущий элемент соответствует папке, то распаковывается всё её содержимое с сохранением всей внутренней иерархии папок и файлов.
Для выполнения примера предполагается наличие на диске архива «D:\Work\Archives\Data.zip». В архиве содержатся различные папки и файлы, в наименовании некоторых может присутствовать текст «Last».
Добавьте ссылку на системную сборку IO.
Sub UserProc;
Var
ZIP: IZipArchive;
ZIPEntry: IZipArchiveEntry;
Begin
ZIP := New ZipArchive.Create("D:\Work\Archives\Data.zip", ZipMode.Read);
For Each ZIPEntry In ZIP Do
If ZIPEntry.ArchPath.IndexOf("Last") <> -1 Then
ZIPEntry.UnpackFile("D:\Work\Files");
End If;
End For;
Dispose ZIP;
End Sub UserProc;
При выполнении примера осуществляется проверка элементов архива на наличие в своём наименовании текста «Last». Если указанный текст имеется, то данный папка/файл будут распакованы в указанный каталог.
См. также: