Как быстро удалить каталог?

← →
intell © (2003-12-10 17:57) [0]

Как быстро удалить каталог в котором подкаталоги и файлы? Можно делать это через DelTree, но он не поддерживает каталогов с русским названием. Можно ли как-то осуществить очень быстрое удаление, как с DelTree?

← →
Intell © (2003-12-11 09:02) [1]

Я пробовал через стандартный досовский файл DelTree. Он прекрасно справляется с задачей, но ненавидит папки с рускоязычным названием. Как с этим бороться? Помогите пожалуйста!

← →
Anatoly Podgoretsky © (2003-12-11 09:04) [2]

То есть как это не поддерживает, ты что то путаешь.
И какой смысл делать это досовской программой, когда есть прекрасная поддержка в АПИ для работы с файлами - ShFileOperation

← →
Stas © (2003-12-11 09:37) [3]

Function RemoveAll(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
Result := False;
sDir := sDir + "\*.*";
iIndex := FindFirst(sDir, faAnyFile, SearchRec);

while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+"\"+SearchRec.Name;
if SearchRec.Attr = faDirectory then begin
if (SearchRec.Name <> "" ) and
(SearchRec.Name <> ".") and
(SearchRec.Name <> "..") then
RemoveDir(sFileName);
end else begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
if NOT DeleteFile(sFileName) then
ShowMessage("Could NOT delete " + sFileName);
end;
iIndex := FindNext(SearchRec);
end;

FindClose(SearchRec);

RemoveDir(ExtractFileDir(sDir));
Result := True;
end;

Спасибо, выручили!

Как быстро удалить каталог? Найти похожие ветки