Не могу понять. Поиск файла в папке.

@heroii2009 · Регистрация: 13.03.2012

Author24 — интернет-сервис помощи студентам

Вот код программы

C++

void Scan(AnsiString Path)
{
  TSearchRec sr;
  if(FindFirst(Path + "*.*", faAnyFile, sr) == 0)
    {
      do
        {
          if(sr.Attr & faDirectory)
            {
              if((sr.Name != ".") && (sr.Name != ".."))
                Scan(Path + sr.Name + "\");
            }
          else
            {
              if(ExtractFileExt(sr.Name) == ".txt")
                Form1->Memo1->Lines->Add(Path + sr.Name);  //вывод в мемо
            }
        }
      while(FindNext(sr) == 0);
      FindClose(sr);
    }
}

если я ввожу нужный файл который я ввожу в

C++

1	if(FindFirst(Path + "bn.txt", faAnyFile, sr) == 0)

оно ищет только в каталоге, в папки не заходит
если ставлю в

C++

1	if(FindFirst(Path + "bn.*", faAnyFile, sr) == 0)

а в

C++

1	if(ExtractFileExt(sr.Name) == ".txt")

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

@Sergey-K · 14.03.2012, 21:13

C++

void Scan(AnsiString Path)
{
  TSearchRec sr;
  if(FindFirst(Path + "*.*", faAnyFile, sr) == 0)
    {
      do
        {
          if(sr.Attr & faDirectory)
            {
              if((sr.Name != ".") && (sr.Name != ".."))
                Scan(Path + sr.Name + "\\");
            }
          else
            {
              if(sr.Name == "Name.txt")  //поиск Name.txt
                Form1->Memo1->Lines->Add(Path + sr.Name);  //вывод в мемо
            }
        }
      while(FindNext(sr) == 0);
      FindClose(sr);
    }
}

@heroii2009 · 14.03.2012, 21:21 **[ТС]**

Сообщение от Sergey-K

C++

void Scan(AnsiString Path)
{
  TSearchRec sr;
  if(FindFirst(Path + "*.*", faAnyFile, sr) == 0)
    {
      do
        {
          if(sr.Attr & faDirectory)
            {
              if((sr.Name != ".") && (sr.Name != ".."))
                Scan(Path + sr.Name + "\\");
            }
          else
            {
              if(sr.Name == "Name.txt")  //поиск Name.txt
                Form1->Memo1->Lines->Add(Path + sr.Name);  //вывод в мемо
            }
        }
      while(FindNext(sr) == 0);
      FindClose(sr);
    }
}

я - ололоша

Спасибо вам огромное

	14.03.2012, 21:21