Как програмно удалить все файлы с расширением .tmp

← →
xoxol (2003-03-06 22:12) [0]

Как програмно удалить все файлы с расширением .tmp чтобы не в корзину а навсегда
плиз дайте код на делфи6
кто выручит получт красивый ICQ семизнак(типа как у меня)
стучитесь на асю 3777744
братва это очень срочно плиззззззз выручайте

← →
xoxol (2003-03-06 22:36) [1]

неверю что никто незнает
вам что трудно ctrl+c ctrl+v жмануть
плиз очень надо

← →
Anatoly Podgoretsky (2003-03-06 22:59) [2]

Ворованный что ли, а какая разница сколько цифр, если будет 6 тогда это супер чувак.
Не хочу быть таким крутым чуваком, а то еще прибьют из за этих цифр.

← →
xoxol (2003-03-06 23:25) [3]

ну ответь на вопрос хотябы
плиззззззззз
мне завтра к 9 утра нужна прога

← →
Pat (2003-03-07 02:20) [4]

FindFirst/Next/Close+DeleteFile()

← →
Suntechnic (2003-03-07 07:32) [5]

>Pat ©
Я уже предвижу следующий вопрос:
Почему у меня после Close приложение закрывается и до DeleteFile не дорходит? :)

← →
stranger71 (2003-03-07 09:52) [6]

В библиотеке RX-Lib, модуль FileUtils, ф-ция DeleteFiles("*.tmp");

← →
Anatoly Podgoretsky (2003-03-07 10:10) [7]

← →
Akim2 (2003-03-07 13:26) [8]

procedure FreeTmp;
var
Found : integer;
SearchRec : TSearchRec;
str : string;
begin
str := Copy(GetTEMPDir, 1, Length(GetTEMPDir) - 1);
ChDir(str);
if IOResult <> 0 then exit;
Found := FindFirst("*.tmp", faAnyFile, SearchRec);
while Found = 0 do begin
if (SearchRec.Name <> ".") and (SearchRec.Name <> "..") then begin
if (SearchRec.Attr and faDirectory) = 0 then begin
DeleteFile(SearchRec.Name);
end;
end;
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

Как програмно удалить все файлы с расширением .tmp Найти похожие ветки