VPF::Необходимо поочерёдно удалить каждый файл в папке

denks

Дата 27.6.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 16.4.2006

Репутация: нет
Всего: нет

Здравствуйте. У меня возник следующий вопрос. Допустим есть папка. В ней находятся файлы разных типов( к примеру exe и txt).
Так вот, необходимо поочерёдно удалить файлы с заданным расширением. Например удалить все exe файлы. Подскажите пожалуйста, как это реализовать. Заранее спасибо.

Romikgy

Дата 27.6.2006, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

сначало находишь по очереди , то что нужно а потом удаляешь,
в поиск тебе....

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Poseidon

Дата 27.6.2006, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

http://vingrad.ru/DELPHI-DLP-000989
http://vingrad.ru/DELPHI-DLP-002507

Код

Procedure DelFile(Dir:string, FileMask: string); 
var SearchRec:TSearchRec; 
begin 
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';  
 if FindFirst(Dir+FileMask, faAnyFile, SearchRec)=0 then repeat  
   if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
   if (SearchRec.Attr and faDirectory)<>0 then  
     ScanDir(Dir+SearchRec.name) 
   else  
     DeleteFile(Dir+SearchRec.name); 
 until FindNext(SearchRec)<>0;  
 FindClose(SearchRec);
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
 DelFile('c:\Моя папка', '*.exe');  
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

denks

Дата 27.6.2006, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 16.4.2006

Репутация: нет
Всего: нет

Спасибо большое.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »