Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

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

← →
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

---

← →
Separator ©   (2002-10-28 07:51) [3]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c