title: How to Search a File through all the SubDirectories in Delphi
body: <p>I implemented this code but again i am not able to search through the subdirectories .</p>
  
  <pre><code>     procedure TFfileSearch.FileSearch(const dirName:string);
       begin
  //We write our search code here
    if FindFirst(dirName,faAnyFile or faDirectory,searchResult)=0 then
    begin
      try
        repeat
        ShowMessage(IntToStr(searchResult.Attr));
          if (searchResult.Attr and faDirectory)=0 then   //The Result is a File
          //begin
            lbSearchResult.Items.Append(searchResult.Name)
           else 
           begin
              FileSearch(IncludeTrailingBackSlash(dirName)+searchResult.Name);
             //
           end;
         until FindNext(searchResult)&lt;&gt;0
       finally
       FindClose(searchResult);
       end;
     end;
     end;
      procedure TFfileSearch.btnSearchClick(Sender: TObject);
     var
   filePath:string;
  begin
  lbSearchResult.Clear;
  if Trim(edtMask.Text)='' then
    MessageDlg('EMPTY INPUT', mtWarning, [mbOK], 0)
  else
  begin
    filePath:=cbDirName.Text+ edtMask.Text;
    ShowMessage(filePath);
    FileSearch(filePath);
  
  end;
  </code></pre>
  
  <p>end;</p>
  
  <p>I am giving the search for *.ini files in E:\ drive. so initially filePath is E:*.ini.
  But the code does not search the directories in E:\ drive. How to correct it?</p>
  
  <p>Thanks in Advance</p>