Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление файлов по маске [D6]


zero-g ©   (2004-10-19 08:51:00) 

Доброго времени суток :)

У меня такой вопрос. как можно сделать программно. Удаление файлов по маске. Т.е. есть каталог, из него надо все выкинуть.
Например Erase(f) выкидывает только один файл, а как сделать чтоб удолялось по маске???????


Jay   (2004-10-19 10:36:00) [1]

Попробуй WinExec('del Путь к папке\*.*', SW_HIDE)


begin...end   (2004-10-19 10:26:00) [2]


> [3] zero-g ©   (19.10.04 09:27)

> и если можно, как просканирывать каталог ???

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19


zero-g   (2004-10-19 09:27:00) [3]

и если можно, как просканирывать каталог ???


zero-g   (2004-10-19 09:24:00) [4]

чето я не понял...
а в чем смысл....
если я буду сканировать каталог, то смысл в маске.....
можно ж просто все файлы потом выкинуть, которые найдет...
а нельзя ли просто сделать, например как в досе del *.*
если можно, объясните.... пожалуйста... я не понял


Yanis   (2004-10-19 09:06:00) [5]

Надеюсь не надо объяснять как просканить каталог?
Тогда

uses
 ..., Masks;

...
begin
...
if MatchesMask(Filename,'*.htm*') then
 DeleteFile(FileName);
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо