Форум: "Система";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
ВнизКак програмно удалить все файлы с расширением .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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c