Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.24;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.015 c
8-77031
NetKnight
2003-01-11 15:45
2003.04.24
MMTools


1-77017
Zheka
2003-04-14 12:36
2003.04.24
Обнуление таблицы


6-77056
xarox
2003-02-25 22:04
2003.04.24
Как можно сделать smtp сервер?


14-77127
Feel
2003-04-07 20:44
2003.04.24
WinAPI


11-76868
Alexei Dragoner
2002-07-17 19:46
2003.04.24
TKOLForm.Paint, где ты?