Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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
1-76884
Ivan L
2003-04-13 22:51
2003.04.24
Открытие файла


4-77235
igorbuz
2003-02-23 04:42
2003.04.24
запуск программы из своей с контролем


9-76743
nimda2000
2002-11-25 09:33
2003.04.24
Игра


1-76997
Мыш
2003-04-13 04:19
2003.04.24
Как рисовать на заголовке формы?


14-77110
VAleksey
2003-04-07 09:18
2003.04.24
Комната квартира в Москве





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский