文件夹查找文件(一个文件夹文件查找函数 Delphi)

procedure TfrmMain.SearchPath(path, filename: string; recurse: Boolean;List: TStringList);   //recurse  是否包递归查找目录procedure Traverse(APath: string);varf: TSearchRec;I: Integer;beginif recurse thenbeginif FindFirst(APath + filename,faDirectory,f) = 0 thenrepeatif (f.Name[1] <> '.') thenTraverse(IncludeTrailingPathDelimiter(APath + f.Name));until FindNext(f) <> 0;FindClose(f);end;if FindFirst(APath + filename,faReadOnly or faHidden or faSysFile or faArchive, f) = 0 thenrepeatList.Add(APath + f.Name);until FindNext(f) <> 0;FindClose(f);end;
beginTraverse(IncludeTrailingPathDelimiter(path));
end;