Проблема при удалении папки

← →
-=SPIDER=- © (2005-12-02 14:09) [0]

Привет всем. Возникла проблема при удалении папки со всем содержимым. Вычищаю папку рекурсивным методом - функция удаляет все файлы в папке, а затем саму папку. Подкаталоги и файлы удаляются нормально, а сама папка никак!
поиск файлов осуществляется при помощи FindFirst ... FindNext. Может у кого есть мысли, почему так получается?

← →
Reindeer Moss Eater © (2005-12-02 14:12) [1]

Скорее всего папка не удаляется потому, что является текущей для твоего процесса.

GetlastError как всегда знает всю правду.

← →
ДНО (2005-12-02 14:13) [2]

код где?

← →
Reindeer Moss Eater © (2005-12-02 14:14) [3]

код не нужен. нужен getlasterror

← →
-=SPIDER=- © (2005-12-02 14:19) [4]

Вот функция:

function DelFolder(Dir: String):boolean; var SR: TSearchRec; FindRes: Integer; begin Dir:=ExcludeTrailingPathDelimiter(Dir); result:=true; FindRes:=FindFirst(Dir+"\*.*",faAnyFile,SR); While FindRes=0 do begin //------------------------------------------ if ((SR.Attr and faDirectory)=faDirectory) then begin if ((SR.Name=".")or(SR.Name="..")) then begin FindRes:=FindNext(SR); Continue; end else begin result:=result and DelFolder(Dir+"\"+SR.Name); FindRes:=FindNext(SR); Continue; end; end; SetFileAttributes(pchar(Dir+"\"+SR.Name), FILE_ATTRIBUTE_NORMAL ); result:=result and DeleteFile(Dir+"\"+SR.Name); FindRes:=FindNext(SR); end; //----------------------------------------------- FindClose(SR); ChDir(GetParentDir(Dir)); result:=result and RemoveDir(Dir); end;

Папка не является текущей.

← →
Reindeer Moss Eater © (2005-12-02 14:22) [5]

>Папка не является текущей.

Откуда уверенность?

function DelFolder(Dir: String):boolean;
Откуда берется значение параметра dir?

Где значение возвращенное getlasterror?

← →
Reindeer Moss Eater © (2005-12-02 14:25) [6]

ChDir(GetParentDir(Dir));
//Здесь посмтотреть какой получился текущий каталог реально

//Чему равно Result?
//Что говорит DirectoryExists(Dir)?

result:=result and RemoveDir(Dir);

← →
ДНО (2005-12-02 16:42) [7]

коментирую ChDir(GetParentDir(Dir)); и все удаляет.

Никак не получается!
Код ошибки GetLastError = 32. Похоже, что папка блокируется. Перед удалением идёт процедура копирования содержимого папки таким же способом (рекурсивный поиск в подкаталогах). Может при этом блокироваться папка?

[1]

Проблема при удалении папки Найти похожие ветки