Поиск папки по маске

[ForzaJuve]

Здравствуйте.
Интересует такой вопрос - как в делфи осуществить поиск папки по маске, а именно : как найти в корневом каталоге папку вида root/*****.def/ , тоесть - как найти папку с ****.def где **** - любое количество букв цифр и тд. И если таких папок 2 и больше получить их список....

Зарание благодарен!

[Вавел из ГМТУ]

Папку или фаил?

[ForzaJuve]

папку! с именем именно ****.def где **** - любое количество букв цифр и тд.

[Вавел из ГМТУ]

У папок есть расширение??
Я чтото пропустил за пару лет простоя от кодинга

[FaTaL]

Ищи так же как и файл через FindFirst FindNext

[ForzaJuve]

Нет, это не расширение это просто имя такое, не могли бы Вы хоть кусок кода привести, а то у меня 0 ассоциаций.

Буду очень благодарен.

[FaTaL]

Например вот:

procedure TForm1.Button1Click(Sender: TObject);
var
SR:TSearchRec;
FindRes:Integer;
N:String;
begin
findRes:=FindFirst('C:\*.def', faAnyFile, SR);
  while findres = 0 do
    begin
      N:=SR.Name;
      FindRes:=FindNext(SR);
    end;
    FindClose (SR);
end;

[Serge_Bliznykov]

вы хоть бы поиском по форуму воспользовались!!!
или посмотрели внизу ссылки на похожие темы...

[ForzaJuve]

Огромное спасибо - работает

[Alter]

Подключить модуль MASKS;

И использовать для проверки имени найденной папки,файла функцию из модуля.
Функция:

function MatchesMask(const Filename, Mask: string): Boolean;

Пример:

If MatchesMask(Имя_Пути, '*axe*1?.inf') then {совпало} else {Не совпало};