Рекурсивный поиск

[zumm]

    function recurse(path: string; mask: string): boolean;
    var
      srec: TSearchRec;
      retval: integer;
      oldlen: integer;
    begin
      recurse:=true;
      oldlen:=length(path);
      retval:=findfirst(path+mask,faanyfile,srec);
      while retval=0 do
      begin
        if (srec.attr and favolumeid)=0 then
          ListFile.Add(path+srec.name);
        retval:=findnext(srec);
      end;
      findclose(srec);
      if not result then
        exit;
      retval:=findfirst(path+'*.*',fadirectory,srec);
      while retval=0 do
      begin
        if (srec.attr and fadirectory)<>0 then
          if (srec.name<>'.') and (srec.name<>'..') then
          begin
            path:=path+srec.name+'\';
            if not recurse(path,mask) then
            begin
              result:=false;
              break;
            end;
            delete(path,oldlen+1,255);
          end;
          retval:=findnext(srec);
        end;
        findclose(srec);
      end;
    begin
    if path='' then
      getdir(0,fullpath)
    else
      fullpath:=path;
    if fullpath[length(fullpath)]<>'\' then
      fullpath:=fullpath+'\';
    if mask='' then
      recurse(fullpath,'*.*')
    else
      recurse(fullpath,mask);
  end;

Доброго всем! Накатал я вот такой вот поиск, вроде работает, но вот есть но...я заметил что он не находит некоторые файлы, например wand.dat (не подумайте не чего плохого, я просто взял этот файл для примера ) это файл который использутся оперой и у многих есть, есть он и у меня. Я попробовал найти его стандартным поиском, нашло, а вот моим кодом не находит....может знает кто в чем проблема?

[mihali4]

Вот так находит нормально:

procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
SearchRec : TSearchRec;
begin
if Mask = '' then Mask := '*.*';
if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
List.Add(StartDir + SearchRec.Name + '\');
ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Пример вызова. параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для результата, любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ScanDir('c:','',ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

[zumm]

а вы попробуйте

ScanDir('c:','wand.dat',ListBox1.Items);

Не найдет

[mihali4]

А что тут удивительного ?
Вы задали :
- искать файл wand.dat
- искать в корне диска С

Вы задайте

ScanDir('c:','',ListBox1.Items);

и она найдет...

[zumm]

хм....я просто по своей орИЕнтеровался у меня каК бЫ ищет начиная с указанного каталога во всех его подкаталогах....

если уж указать в каком каталоге искать, то и у меня найдет...

[mihali4]

Ладно, получите другой вариант:

procedure FindFiles(StartFolder, Mask: String; List: TStrings; 
ScanSubFolders: Boolean = True); 
var 
SearchRec: TSearchRec; 
FindResult: Integer; 
begin 
List.BeginUpdate; 
try 
StartFolder:=IncludeTrailingBackslash(StartFolder); 
FindResult:=FindFirst(StartFolder+'*.*', faAnyFile, SearchRec); 
try 
while FindResult = 0 do with SearchRec do begin 
if (Attr and faDirectory)>0 then begin 
if ScanSubFolders and (Name<>'.') and (Name<>'..') then 
FindFiles(StartFolder+Name, Mask, List, ScanSubFolders); 
end else begin 
if MatchesMask(Name, Mask) then List.Add(StartFolder+Name); 
end; 
FindResult:=FindNext(SearchRec); 
end; 
finally 
FindClose(SearchRec); 
end; 
finally 
List.EndUpdate; 
end; 
end; 

procedure TForm1.Button9Click(Sender: TObject);
begin
ListBox1.Items.Clear;
FindFiles('C:', 'wand.dat', ListBox1.Items, true);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

Только не забудьте в uses добавить Masks...

[zumm]

Вот! Вот теперь ищет, спасибо

[Alter]

Если нужно, компонент для поиска файлов