support@adelavida.com  
Клипарт · Вернисаж · Конференции · Downloads · Досуг · Сайты · Чат

FAQ (Frequently Asked Questions)
<< Вернуться в конференцию Delphi
 FAQ из конференций:  3D графика Delphi Игры Политика PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
Все вопросы
<<    Delphi FAQ    >>
xoxol [2003-03-06 22:22:33]
Как програмно удалить все файлы с расширением .tmp
Как програмно удалить все файлы с расширением .tmp чтобы не в корзину а навсегда
плиз дайте код на делфи6

AL2002 ® [2003-03-06 22:30:03]
function DeleteDir(Dir  : string)  : boolean;// Удалить каталог со всем содержимым

Var
Found  : integer;
SearchRec : TSearchRec;
begin
result:=false;
if IOResult<>0 then ChDir(Dir);
 if IOResult<>0 then begin
 ShowMessage(\'Не могу войти в каталог: \'+Dir); exit;
end;
Found := FindFirst(\'*.*\', faAnyFile, SearchRec);
while Found = 0 do
begin
 if (SearchRec.Name<>\'.\')and(SearchRec.Name<>\'..\') then
  if (SearchRec.Attr and faDirectory)<>0 then begin
   if not DeleteDir(SearchRec.Name) then exit;
  end else
   if not DeleteFile(SearchRec.Name) then begin
    ShowMessage(\'Не могу удалить файл: \'+SearchRec.Name); exit;
   end;
  Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
ChDir(\'..\'); RmDir(Dir);
result:=IOResult=0;
end;


Всего просмотров: 480. За последние 24 часа: 0


Rambler's Top100       Рейтинг@Mail.ru