Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизУдаление папки с файлами Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c