Главная » Статьи по Delphi » Директории » Удалить каталог со всем содержимым

Удалить каталог со всем содержимым

Автор: Акулов Николай

Для удаления каталогов существует функция RemoveDirectory. Она удаляет каталог, если он пуст. Поэтому перед удалением каталога его нужно очистить.

procedure RemoveAll(path: string);
var
  sr: TSearchRec;
begin
  if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if sr.Attr and faDirectory = 0 then
      begin
        DeleteFile(path + '\' + sr.name);
      end
      else
      begin
        if pos('.', sr.name) <= 0 then
          RemoveAll(path + '\' + sr.name);
      end;
    until
      FindNext(sr) <> 0;
  end;
  FindClose(sr);
  RemoveDirectory(PChar(path));
end;

Просмотров: 7214

Обсудить на форуме

0   Спам (23.01.2012) 1. STARS Данный метод работает если в папке лежат только файлы и нет других папок. А как удалить каталоги которые лежат в удаляемом каталоге и имеют файлы и еще вложения каталогов с файлами?

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.