поиск через рекурсию

[AIst]

function  TForm1.find(dir_name:string) : boolean;
var maska : string;
    SearchRec : TSearchRec;
begin
maska := '*.txt';
SetCurrentDir(dir_name);  // perehodim na naidennii disk
if FindFirst(maska, faAnyFile,SearchRec) = 0 then
       repeat
          if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
             begin
              memo1.lines.add(dir_name + SearchRec.Name);
             end;
        until FindNext(SearchRec) <> 0;
end;

в качестве исходного каталога - передаю в функцию имя диска, предварительно ищу все жесткие диски в системе(с этим разобрался).

смотрел много примеров как искать далее во всех подкаталогах, но так и не понял...

мне нужно в итоге получить(немного изменить мой исходник) поиск файла во всех подкаталогах через рекурсию.

Поможете доделать?

[russian-stalker]

function SearchInFolder(folder, mask: String; flags: DWORD;names: TStrings; addpath: Boolean = False): Boolean;
var
  hSearch: THandle;
  FindData: WIN32_FIND_DATA;
  strSearchPath: String;
  bRes: Boolean; //Если равен True, то нашли хотя бы один файл или каталог
begin
  strSearchPath := folder + '\' + mask;
  bRes := False;
  //Начинаем поиск
  hSearch := FindFirstFile(PAnsiChar(strSearchPath), FindData);
  if (hSearch <> INVALID_HANDLE_VALUE) then
  begin
    //Ищем все похожие элементы (информация о первом элементе уже
    //записана в FindData функцией FindFirstFile)
    repeat
      if (String(FindData.cFileName) <> '..') and
         (String(FindData.cFileName) <> '.') then //Пропускаем . и ..
      begin
        if MatchAttrs(flags, FindData.dwFileAttributes) then
        begin
          //Нашли подходящий объект
          if addpath then
            names.Add(folder + '\' + FindData.cFileName)
          else
            names.Add(FindData.cFileName);
          bRes := True;
        end;
      end;
    until FindNextFile(hSearch, FindData) = FALSE;
    //Заканчиваем поиск
    FindClose(hSearch);
  end;
  files_SearchInFolder := bRes;
end;

Подходит?

[Пепел Феникса]

тут много примеров на форуме...поиск в зубы.

http://programmersforum.ru/showthrea...E0%E9%EB%EE%E2 например

вот в заметках нашел...

procedure TMainF.FindFiles(APath: String); 
{***} 
var 
FSearchRec, 
DSearchRec: TSearchRec; 
FindResult: integer; 
fst1, fst2: AnsiString; 
D_Nwas: boolean; 
fsz: int64; 

function IsDirNotation(ADirName: String): Boolean; 
begin 
Result := (ADirName = '.') or (ADirName = '..'); 
end; 

begin 
APath := GetDirectoryName(APath); // Obtain a valid directory name 
FindResult := FindFirst(APath+FFileName, 
faAnyFile+faHidden+faSysFile+faRead Only+faArchive, FSearchRec); 
D_Nwas:= true; 

try 
{ Continue to search for the files according to the specified 
mask. If found, add the files and their paths to the listbox.} 
Current.Caption:= aPath; 

while FindResult = 0 do 
begin 
if D_Nwas then 
begin 
lbFiles.Items.Add(aPath); 
D_Nwas:= false; 
end; 
fst:= LowerCase(FSearchRec.Name); 

if sz_on then 
begin 
fsz:= FSearchRec.Size; 
sum:= sum + fsz; 
CurrLine.Caption:= IntToStr(sum); 
end; 
if dt_on then 
Fst2:= DateToStr(FileDateToDateTime(FSearc hRec.Time)); 

if sz_on then 
begin 
if dt_on 
then lbFiles.Items.Add( Format( '%s'#9'%s'#9'%10.2f'#9'%s', [fchr, fst2, fsz/1024, fst]) ) 
else lbFiles.Items.Add( Format( '%s'#9'%10.2f'#9'%s', [fchr, fsz/1024, fst]) ) 
end 
else lbFiles.Items.Add( Format( '%s'#9'%s', [fchr, fst]) ); 
fst:= LowerCase(aPath)+fst; 

FindResult := FindNext(FSearchRec); 
inc(num); 
Number.Caption:= intToStr(num); 
if random(10)<4 then Application.ProcessMessages; 
if stop then 
begin 
FindClose(FSearchRec); 
exit; 
end; 
end; 

{ Now search the sub-directories of this current directory. Do this 
by using FindFirst to loop through each subdirectory, then call 
FindFiles (this function) again. This recursive process will 
continue until all sub-directories have been searched. } 

FindResult := FindFirst(APath+'*.*', faDirectory, DSearchRec); 

while FindResult = 0 do 
begin 
if ((DSearchRec.Attr and faDirectory) = faDirectory) and not 
IsDirNotation(DSearchRec.Name) then 

FindFiles(APath+DSearchRec.Name); // Recursion here 

FindResult := FindNext(DSearchRec); 
if random(10)<5 then Application.ProcessMessages; 
if stop then 
begin 
FindClose(FSearchRec); 
exit; 
end; 
end; 
finally 
FindClose(FSearchRec); 
end; 
end;