Главная страница
    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
1-1098105957
Leaner
2004-10-18 17:25
2004.10.31
Странное выражение: SetLength(S,Length(PChar(S)));


1-1097746852
jenbond
2004-10-14 13:40
2004.10.31
Нужен совет в работе прогораммы


14-1096896970
ArchValentin
2004-10-04 17:36
2004.10.31
Программа управления комп. салоном...


4-1092918672
menart
2004-08-19 16:31
2004.10.31
Как можно остановить службу на какое-то и потом ее запустить?


1-1097673237
Uran
2004-10-13 17:13
2004.10.31
Цифровые символы в строке





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