Скачать: CL | DM;

Как програмно удалить все файлы с расширением .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]

xoxol © (06.03.03 23:25)
Можно и к 9, но номер у тебя слишком длинный

---

← →
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;

---

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

Скачать: CL | DM;



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