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

Вниз

Как можно удалить папку?   Найти похожие ветки 

← →
Геральт   (2002-03-05 19:41) [0]

Не подскажите, как можно удалить непустую папку. Желательно без задавания лишнх вопросов - папка временная и пользователю не следует знать о ее существовании

---

← →
lipskiy ©   (2002-03-05 20:23) [1]

//##############################################################################
// удаляет все содержимое каталога вместе с подкаталогами
// RemoveRoot указывает на необходимость удаления корня каталога
// при установке в False функция используется для очистки содержимого каталога
function sRemoveDir(Dir:string; RemoveRoot:boolean):Boolean;
//##############################################################################
var i:Integer;
SRec:TSearchRec;
FN:String;
begin
Result:= True;
if Dir[Length(Dir)] <> "\" then Dir:= Dir + "\";
Dir:= Dir + "*.*";

i:= FindFirst(Dir, faAnyFile, SRec);
while i = 0 do
begin
FN:= ExtractFileDir(Dir)+"\"+SRec.Name;
if SRec.Attr = faDirectory then
begin
if (SRec.Name <> "" ) and (SRec.Name <> ".") and (SRec.Name <> "..") then
sRemoveDir(FN,True);
end
else
begin
if SRec.Attr <> faArchive then FileSetAttr(FN, faArchive);
if not DeleteFile(FN) then Result:= false;
end;
i:= FindNext(SRec);
end;
FindClose(SRec);

if RemoveRoot then
try
if not RemoveDir(Dir) then Result:= false;
except
end;

end;

---

← →
Геральт   (2002-03-05 21:27) [2]

Спасибо

---

← →
Olivka   (2002-03-05 21:49) [3]

если используешь RxLib, то там есть функция удаления папки, очень удобная

---

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

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

Наверх

Память: 0.47 MB
Время: 0.01 c