Удаление папки с файлами

← →
Pro-Z (2002-10-28 00:00) [0]

HE-E-E-ELP!!!
Програмирую недавно, поэтому вопрос тупой и простой.
В Delphi есть процедура удаления пустой папки: RMDIR, RemoveDir.
Есть ли процедура удаления папки с файлами? Если нет, то как её накатать?

← →
Pro-Z (2002-10-28 00:06) [1]

Зарание Шпасибо

← →
MBo © (2002-10-28 06:54) [2]

1) Удалить сначала файлы (findFirst etc)
2) SHFileOperation

procedure DelFiles(Dir: TFileName);
var
F: TSearchRec;
begin
if Dir[Length(Dir)] <> "\" then
Dir:= Dir + "\";
if FindFirst(Dir + "*.*", faAnyFile, F) = 0 then
repeat
if (F.Name <> ".") and (F.Name <> "..") then
if ((F.Attr and faDirectory) = faDirectory) then
DelFiles(Dir + F.Name)
else
begin
if (F.Attr and faReadOnly) = faReadOnly then
FileSetAttr(Dir + F.Name, 0);
DeleteFile(Dir + F.Name)
end
until FindNext(F) <> 0;
FindClose(F);
RmDir(Dir)
end;

Удаление папки с файлами Найти похожие ветки