Ответы на все вопросы

FAQ / Программирование / Delphi

Delphi 5. Подскажите команду удаления папки.

Вопрос:

    Delphi 5. Подскажите пожалуйста комманду удаления папки. С помощью DeleteFile очищаю деректорию (она является текущей SetCurrentDir) от файлов, и она остаётся пустой - надо её удалить. Или как удалить сразу папку вместе с файлами?
    

Ответ:

    procedure RemoveFileTree(const Path: string);
    var Found: integer;
    SearchRec: TSearchRec;
    FileName: string;
    begin
    Found:= FindFirst(Path + '\*.*', faAnyFile, SearchRec);
    while Found = 0 do
    begin
    if ((SearchRec.Attr and faDirectory) = faDirectory)
    then
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
    then RemoveFileTree(Path+'\'+SearchRec.Name)
    else
    else
    begin
    FileName:= Path+'\'+SearchRec.Name+#0;
    DeleteFile(PChar(FileName));
    end;
    Found:= FindNext(SearchRec);
    end;
    SysUtils.FindClose(SearchRec);
    RemoveDir(Path);
    end;
    

Версия для печати Найти похожие статьи
Поиск по сайту

Архив

ВсПнВтСрЧтПтСб
1234567
891011121314
15161718192021
22232425262728
293012345
6789101112
13141516171819
20212223242526
272829303112



Мы рекомендуем