Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Удаление файлов по маске   Найти похожие ветки 

 
zero-g ©   (2004-10-19 08:51) [0]

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

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


 
Yanis ©   (2004-10-19 09:06) [1]

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

uses
 ..., Masks;

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


 
zero-g ©   (2004-10-19 09:24) [2]

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


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

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


 
begin...end ©   (2004-10-19 10:26) [4]


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

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

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


 
Jay   (2004-10-19 10:36) [5]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
4-1096265406
Unknown user
2004-09-27 10:10
2004.10.31
Открытие документов со шрифтами не установленными в системе


4-1096040015
appendix
2004-09-24 19:33
2004.10.31
поток в Win98 и winXP


14-1097250813
Shurik_212
2004-10-08 19:53
2004.10.31
Неохота убивать винду


4-1096300901
LicProd
2004-09-27 20:01
2004.10.31
Определить Хэндл приложения на ToolBarWindow32 ?


8-1091222553
d10
2004-07-31 01:22
2004.10.31
Проблема с 32 битами на DirectX JEDI, IDirectDraw7





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский