Рекурсивное удаление директории

← →
AngelFire (2004-08-17 13:14) [0]

Уважаемые Мастера! Не получается рекурсивно удалить диреткорию средствами API ! RemoveDirectory() - удаляет только пустые. SHFileOperation() - умеет и рекурсивно, но нестабильно работает между вызовами FindFirstChangeNotification()... FindNextChangeNotification(), самостоятельный рекурсивный спуск функциями FindFirstFile()...FindNextFile() с удалением - сбивает внутренний указатель поиска и часть файлов остается неудаленной.
Как быть?

с уважением,
Angel

← →
Kerk © (2004-08-17 13:22) [1]

у тебя ошибка в 17й строке. :)
исходник покажи

← →
AngelFire (2004-08-17 14:30) [2]

Что-то вроде этого:

SHFILEOPSTRUCT fop;
fop.wFunc := FO_DELETE;
fop.pFrom := lpszPathName;
fop.fFlags := FOF_NOCONFIRMATION | FOF_NOERRORUI | FOF_SILENT;
SHFileOperation( @fop );

p.s.
За синтаксис извиняюсь заранее, т.к. переносил из кода C++, а паскалевый синтаксис уже порядком подзабыл)

Рекурсивное удаление директории Найти похожие ветки