| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Удаление папки с файлами [D6, Win95/98, WinME]
Pro-Z © (2002-10-28 00:00:00)HE-E-E-ELP!!!
Програмирую недавно, поэтому вопрос тупой и простой.
В Delphi есть процедура удаления пустой папки: RMDIR, RemoveDir.
Есть ли процедура удаления папки с файлами? Если нет, то как её накатать?
Separator (2002-10-28 07:51:00) [1]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;
MBo (2002-10-28 06:54:00) [2]1) Удалить сначала файлы (findFirst etc)
2) SHFileOperation
Pro-Z (2002-10-28 00:06:00) [3]Зарание Шпасибо
| |
