| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
есть ли функция для удаления не пустого каталога? [D6, D7, XP]
FIL-23 © (2007-01-17 16:45:00)Вопрос вот в чем заключается: есть папка в ней файлы всякие разные, так вот как с помощью делфи удалить этот каталог вмести с его содержимым. Зарание спасибо
Rial (2007-01-17 17:24:00) [1]procedure RemoveDirect(Const Name:String);
Var SS:TSearchRec;
Result:Integer;
begin
Result:=FindFirst(Name+'\*.*',faAnyFile,SS);
While (Result=0)do begin
If (SS.Name<>'..')and(SS.Name<>'.')then
If (SS.Attr and faDirectory=faDirectory)
then RemoveDirect(Name+'\'+SS.Name)
else DeleteFile(Name+'\'+SS.Name);
Result:=FindNext(SS);
end;
FindClose(SS);
RemoveDir(Name);
end;
Amoeba (2007-01-17 16:49:00) [2]ShFileOperation
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91
Джо (2007-01-17 16:46:00) [3]См. ShFileOperation, там, кажется, есть.
| |
