Delphi7如何快速搜索文件夹

Question

各位大侠，我想编写一个函数
提供两个变量根文件夹RootDirectory和被搜索文件夹SubDirectory
返回结果是带有被搜索文件夹的完整路径，这个怎么写？Delphi

Answer 1

结果存在传进去的TStrings里面
procedure FindSubDir(DirName: string; slFiles: TStringList);
  function IsValidDir(SearchRec: TSearchRec): Boolean;
  begin
    if (SearchRec.Attr = faDirectory) and
      (SearchRec.Name <> '.') and
      (SearchRec.Name <> '..') then
      Result := True
    else
      Result := False;
  end;
var
  searchRec: TsearchRec;
begin
  if (FindFirst(DirName + '*.*', faDirectory, SearchRec) = 0) then
  begin
    if IsValidDir(SearchRec) then
      slFiles.Add(DirName + SearchRec.Name);
    while (FindNext(SearchRec) = 0) do
    begin
      if IsValidDir(SearchRec) then
        slFiles.Add(DirName + SearchRec.Name);
    end;
  end;
  FindClose(SearchRec);
end;

Answer 2

FindSubDirDirName是被搜索的目录的路径
slFiles返回搜索的文件夹完整路径