Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по 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;

синергия

программы международного сотрудничества

mfpa.ru

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

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

(23.01.2012)

1. STARS

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