{ **** UBPFD *********** by delphibase.endimus.com ****
>> Удаление непустого каталога вместе с подкаталогами
Удаление подкаталогов рекурсивное - функция вызывает саму себя.
Описание назначения агрументов:
-DeleteAllFilesAndFolder - если TRUE то функцией будут предприняты
попытки для установки атрибута faArchive любому файлу или папке
перед его(её) удалением;
-StopIfNotAllDeleted - если TRUE то работа функции моментально
прекращается если возникла ошибка удаления хотя бы одного файла или папки;
-RemoveRoot - если TRUE, указывает на необходимость удаления корня.
Зависимости: FileCtrl, SysUtils
Автор: lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright: Собственное написание (lipskiy)
Дата: 26 апреля 2002 г.
***************************************************** }function FullRemoveDir(Dir: string; DeleteAllFilesAndFolders,
StopIfNotAllDeleted, RemoveRoot: boolean): Boolean;
var
i: Integer;
SRec: TSearchRec;
FN: string;
begin
Result := False;
ifnot DirectoryExists(Dir) then
exit;
Result := True;
// Добавляем слэш в конце и задаем маску - "все файлы и директории"
Dir := IncludeTrailingBackslash(Dir);
i := FindFirst(Dir + "*", faAnyFile, SRec);
trywhile i = 0 dobegin// Получаем полный путь к файлу или директорию
FN := Dir + SRec.Name;
// Если это директорияif SRec.Attr = faDirectory thenbegin// Рекурсивный вызов этой же функции с ключом удаления корняif (SRec.Name <> "") and (SRec.Name <> ".") and (SRec.Name <> "..") thenbeginif DeleteAllFilesAndFolders then
FileSetAttr(FN, faArchive);
Result := FullRemoveDir(FN, DeleteAllFilesAndFolders,
StopIfNotAllDeleted, True);
ifnot Result and StopIfNotAllDeleted then
exit;
end;
endelse// Иначе удаляем файлbeginif DeleteAllFilesAndFolders then
FileSetAttr(FN, faArchive);
Result := SysUtils.DeleteFile(FN);
ifnot Result and StopIfNotAllDeleted then
exit;
end;
// Берем следующий файл или директорию
i := FindNext(SRec);
end;
finally
SysUtils.FindClose(SRec);
end;
ifnot Result then
exit;
if RemoveRoot then// Если необходимо удалить корень - удаляемifnot RemoveDir(Dir) then
Result := false;
end;
Пример использования:
FullRemoveDir("C:\a", true, true, true);
// Полное удаление папки C:\a со всем её содержимым,// и с последующим удалением самой c:\a
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Удаление непустого каталога вместе с подкаталогами", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!