Поиск Файлов На Пк

[xa4ik]

Вот у меня есть код поиска

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);
}
}

если я ввожу в

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

к примеру делаю

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

файл "123.txt" находит, но только в корне диска в котором ищу, или в папке которую указываю.
Когда я оставляю поле

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

а

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

либо

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

и

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

мне выдают файлы и с каталога и с под каталогов, все в формате "txt" почему программа по заданому имени ищет только в каталоге?? и как исправить?

 

[xa4ik]

Вот у меня есть код поиска

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);
}
}

если я ввожу в

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

к примеру делаю

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

файл "123.txt" находит, но только в корне диска в котором ищу, или в папке которую указываю.
Когда я оставляю поле

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

а

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

либо

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

и

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

мне выдают файлы и с каталога и с под каталогов, все в формате "txt" почему программа по заданому имени ищет только в каталоге?? и как исправить?

САМ НАШЕЛ ОТВЕТ

if((sr.Name != ".") && (sr.Name != ".."))
Scan(Path + sr.Name + "\\");

если сделать

if((sr.Name != ".") && (sr.Name == ".."))
Scan(Path + sr.Name + "\\");

все будет ок