| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема при удалении папки [D6, Win95/98, WinXP]

-=SPIDER=- ©   (2005-12-02 14:09:00) 

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

---

Reindeer Moss Eater   (2005-12-05 10:35:00) [1]

[1]

---

-=SPIDER=-   (2005-12-05 09:15:00) [2]

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

---

ДНО   (2005-12-02 16:42:00) [3]

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

---

Reindeer Moss Eater   (2005-12-02 14:25:00) [4]

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

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

result:=result and RemoveDir(Dir);

---

Reindeer Moss Eater   (2005-12-02 14:22:00) [5]

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

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

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

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

---

-=SPIDER=-   (2005-12-02 14:19:00) [6]

Вот функция:


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:14:00) [7]

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

---

ДНО   (2005-12-02 14:13:00) [8]

код где?

---

Reindeer Moss Eater   (2005-12-02 14:12:00) [9]

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

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

---

Наверх