Удалить директорию

← →
Yus (2005-11-10 07:32) [0]

Подскажите как удалить вложенные директории. Делаю так:
function DirDelete(Dir:string):boolean;
var Search: TSearchrec;
begin
if not DirectoryExists(Dir) then EXIT;
if FindFirst(Dir+"*.*", $3f, Search)= 0 then
repeat
DeleteFile(Dir+Search.Name);
until FindNext(Search)<>0;
end;
Файлы удаляются(не все), а вложенные папки нет, если даже они пустые.

← →
YuRock © (2005-11-10 08:28) [1]

Потому, что пустые директории удаляются через RemoveDirectory.
А вообще не мучайся, используй:
function DirDelete( const SSource: String ): Boolean; var fo: SHFILEOPSTRUCT; begin fo.Wnd := 0; fo.wFunc := FO_DELETE; fo.pFrom := PChar(SSource + #0); fo.pTo := PChar(SSource + #0); fo.fFlags := FOF_NOCONFIRMATION or FOF_SILENT; Result := not Boolean( SHFileOperation( fo ) ); end;
И uses ShellApi не забудь :)

← →
Yus (2005-11-10 11:56) [2]

Понял.Спасибо!!

Удалить директорию Найти похожие ветки