Обсуждения - BORLAND DELPHI - Группы Мой Мир

Сортировать: по обновлениям | по дате | по рейтингу Отображать записи: Полный текст | Заголовки

функция для удаления папок с содержимым без применения рекурсии

Всем привет! Тут ниже Unit, там описана процедура для удаления папок с содержимым (папки, файлы). В нете можно найти варианты с применеием рекурсии, но рекусия это рекурсия, дорого и не совсем надежно.

Стандарт ная процедура удаления папок delphi (RemoveDir) не удаляет вложенные папки и папки с содержимым.

Испытания проводил на флешке со вложенными папками, по скоростным показателям мало отличаеться от удаления через систему.

Буду рад получить отзовы и предложения по улучшению кода! В частности удаления зашишеных папок и файлов.

Жду откликов!

unit folders;

//____Abducarimov_Kairat_Tagaevich____
//____17.09.09________________________
//____function_for_removing_folders___
//____function_use_no_recursion_______

interface
uses SysUtils, Dialogs;
Function RemoveDirs(Dir : String) : Boolean;//delete_folder_with_contents
implementation
Function step_back(path:string):String;//gets_path_one_level_up
var i,le:integer;
begin
le:=length(path);
for i:=1 to le do
    if path[le-i]='\' then
      begin
        path:=copy(path,1,le-i-1);
        Break;
      end
    else
      begin
        if path[le-i]=':' then Break;
      end;
   Result:=path;
end;
Function RemoveDirs(Dir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : string;
StopLine:string;
SourceDir:string;
begin
StopLine:=Step_back(Dir);
SourceDir:=Dir;
repeat
    SourceDir := SourceDir + '\*.*';
    iIndex := FindFirst(SourceDir, faAnyFile, SearchRec);
    while iIndex=0 do
      begin
       sFileName := ExtractFileDir(SourceDir)+'\'+SearchRec.Name;
         if SearchRec.Attr = faDirectory then
           begin
             if (SearchRec.Name<>'') and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
               begin
                 SourceDir := sFileName + '\*.*';
                 FindClose(SearchRec);
                 iIndex := FindFirst(SourceDir, faAnyFile, SearchRec);
               end else iIndex := FindNext(SearchRec);
           end else
               begin
                if SearchRec.Attr <> faArchive then FileSetAttr(sFileName, faArchive);
                if NOT DeleteFile(sFileName) then ShowMessage('Could NOT delete' + sFileName);
                iIndex := FindNext(SearchRec);
               end;
       end;
    FindClose(SearchRec);
    SourceDir:=ExtractFileDir(SourceDir);
    RemoveDir(SourceDir);
    SourceDir:=step_back(SourceDir);
Until SourceDir=StopLine;
end;

end.