Обработка каждого файла из папки

[Jim Becker]

Здравствуйте! Используется Visual Studio 2008, Win32 Project + Use MFC in a Static Library.
Для каждого файла с определенным расширением из заданной папки и всех вложенных в нее папок,
необходимо выполнить определенную функцию. Каким образом можно так сделать?
Грубо говоря, для всех текстовых документов *.txt из папки c:\patch\ добавить в ListBox имя каждого файла.
Заранее благодарю!

[Serge_Bliznykov]

Пример для Delphi подойдёт?
Если нет - приношу свои извинения. Когда написал ответ, не обратил внимание на требуемый язык...

// в uses добавить модуль Masks

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  DirSearch('c:\patch\', '*.TXT', ListBox1.Items);
end;

[yuran666666]

пишете процедуру- суть такова:

2 параметра: путь для поиска, маска для поиска

FindFirstFile ->задаете маску файла сначала *.* -> FindNextFile если нет файлов, то отпускаем хендл поиска FindClose и на выход, если есть -> если найденный объект директория, а не файл, то рекурсивно вызываете эту же процедуру, если файл, то сравниваете с маской искомых файлов -> подходит, тогда выводите где надо, не подходит, ищем далее

вот и все дела вообщем то..

/собственно на делфях вам то же самое и написали, только в коде уже/