Текущий архив: 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.015 c
