Очистка папки

[Kronos913]

Процедура, которая удаляет все из папки:

Procedure ClearFolder(Dir:string);
var
  SearchRec: TSearchRec;
begin
  If DirectoryExists(Dir) then begin
    Dir := IncludeTrailingBackslash(Dir);
    if FindFirst(Dir+'*.*', faAnyFile, SearchRec) = 0 then
      repeat
        Application.ProcessMessages;
        If not(SearchRec.Name='.') and not(SearchRec.Name='..') then try
         if (SearchRec.Attr and faDirectory)=0 then DeleteFile(Dir + SearchRec.Name)
         Else RemoveDir(Dir + SearchRec.Name);
        except
        end;
      until FindNext(SearchRec)<>0;
    FindClose(SearchRec);
  End;
end;

Вопрос: оптимален ли этот код?

[Arigato]

Он просто неработоспособен. В коде прослеживается желание удалять вложенные папки:

Else RemoveDir(Dir + SearchRec.Name);

Но удаляемая с помощью RemoveDir папка должна быть пуста. Полагаю, что в этом месте перед RemoveDir должен быть рекурсивный вызов: ClearFolder(Dir + SearchRec.Name);

[Kronos913]

А есть ли процедура, способная сразу удалить "полную" папку?
Просто я сколько не искал, такой не нашел

[Arigato]

Нет, системе надо пометить место, занимаемое файлами, как свободное для использования. Без просмотра всего дерева каталогов это сделать невозможно.

[northener]

Сообщение от Kronos913

А есть ли процедура, способная сразу удалить "полную" папку?

Кстати. На всемирной помойке вы вполне сможете найти такую процедуру. Но если заглянете в её нутро, то увидите ту же самую реализацию. Т.е. сначала удаление всех файлов, и уж потом удаление самой папки.

[Kronos913]

Вот отредактированный код, вдруг кому надо будет

Procedure ClearFolder(Dir:string);
var
  SearchRec: TSearchRec;
begin
  If DirectoryExists(Dir) then begin
    Dir := IncludeTrailingBackslash(Dir);
    if FindFirst(Dir+'*.*', faAnyFile, SearchRec) = 0 then
      repeat
        Application.ProcessMessages;
        If not(SearchRec.Name='.') and not(SearchRec.Name='..') then try
          if (SearchRec.Attr and faDirectory)=0 then DeleteFile(Dir + SearchRec.Name)
          Else begin
            ClearFolder(Dir + SearchRec.Name);
            RemoveDir(Dir + SearchRec.Name);
          end;
        except
        end;
      until FindNext(SearchRec)<>0;
    FindClose(SearchRec);
  End;
end;