Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.23;
Скачать: CL | DM;

Вниз

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

 
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;


 
Intell ©   (2003-12-11 12:11) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2003.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-75253
killer
2003-12-10 13:57
2003.12.23
Как зарегистрировать свою программу в Windows?


14-75385
SergP
2003-11-28 08:49
2003.12.23
Интернет - свалка всякой заразы....


7-75417
неважно
2003-10-16 15:56
2003.12.23
Работа с несколькими компортами одновременно :(


3-75129
Vick
2003-12-01 13:19
2003.12.23
Преобразование vrabinary в varchar


14-75318
Ske4er
2003-12-02 09:11
2003.12.23
Как долго можно не выключать компьютер?