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

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

удаление файлов и папок [D6, Win2k]

Andy Eremin ©   (2003-02-27 07:27:00) 

Уважаемые Мастера!
Как удалить папку и находящиеся в ней файлы?
Функции FindNext почему-то отбирает не все файлы:
FindFirst(GetCurrentDir+"\*.*", faAnyFile, sr);
Но даже после удаления в цикле всех файлов (хотя это глупость, конечно, т.к. в дальнейшем я не буду знать точное кол-во файлов в папке) папка не удаляется (хотя с заранее пустой папкой эта функция работает):
RemoveDir(GetCurrentDir);

---

AGGRESSOR   (2003-02-27 15:19:00) [1]

ИМХО, лучше SHFileOperation - объем кода уменьшится раз в 10...

---

Verg   (2003-02-27 08:15:00) [2]

> Функции FindNext почему-то отбирает не все файлы:
> FindFirst(GetCurrentDir+"\*.*", faAnyFile, sr);


Вы верите в чудеса? :)

Если нет, то надо бы привести полный код своей процедуры и спросить: "где тут ошибка?"

А вот в наборе Rx в модуле fileutil есть функция:

function ClearDir(const Path: string; Delete: Boolean): Boolean;
const
{$IFDEF WIN32}
FileNotFound = 18;
{$ELSE}
FileNotFound = -18;
{$ENDIF}
var
FileInfo: TSearchRec;
DosCode: Integer;
begin
Result := DirExists(Path);
if not Result then Exit;
DosCode := FindFirst(NormalDir(Path) + "*.*", faAnyFile, FileInfo);
try
while DosCode = 0 do begin
if (FileInfo.Name[1] <> ".") and (FileInfo.Attr <> faVolumeID) then
begin
if (FileInfo.Attr and faDirectory = faDirectory) then
Result := ClearDir(NormalDir(Path) + FileInfo.Name, Delete) and Result
else if (FileInfo.Attr and faVolumeID <> faVolumeID) then begin
if (FileInfo.Attr and faReadOnly = faReadOnly) then
FileSetAttr(NormalDir(Path) + FileInfo.Name, faArchive);
Result := DeleteFile(NormalDir(Path) + FileInfo.Name) and Result;
end;
end;
DosCode := FindNext(FileInfo);
end;
finally
FindClose(FileInfo);
end;
if Delete and Result and (DosCode = FileNotFound) and
not ((Length(Path) = 2) and (Path[2] = ":")) then
begin
RmDir(Path);
Result := (IOResult = 0) and Result;
end;
end;


...так она нормально работает.

---

Наверх