delphi - Delphi中如何通过所有子目录搜索文件

Question

我已经在 Delphi 中实现了这段代码，它将搜索文件或给定的名称，但省略搜索所有子目录。如何做到这一点？

代码:

 if FindFirst(filePath,faAnyFile,searchResult)=0 then
  try
    repeat
    lbSearchResult.Items.Append(searchResult.Name);

    until FindNext(searchResult)<>0
  except
  on e:Exception do
  ShowMessage(e.Message);
  end; //try ends
  FindClose(searchResult); 

Answer 1

使用 Delphi XE 及更高版本，您可以查看 IOUtils.pas:

TDirectory.GetFiles('C:\', '*.dll', TSearchOption.soAllDirectories);