在windows中，可以搜索文件和文件夹，这是怎么实现的？谢谢.请贴出代码。.

Question

谢谢

Answer 1

procedure searchpath(path: string);
var
  searchrec: TSearchRec;
  ext: string; //后缀
begin
  //在路径后面加上'\'
  if path[length(path)] <> '\' then
    path := path + '\';
  if FindFirst(path + '*.*', faAnyFile, SearchRec) <> 0 then
    exit;
  //判断是否为目录，是目录则循环
  if (searchrec.Attr and faDirectory) <> 0 then
  begin
    if (searchrec.name <> '.') and (searchrec.name <> '..') then
      searchpath(path + searchrec.name);
  end
  else
  begin
    { 此处加上你自已的判断文件后缀的代码
    ext := lowercase(extractfileext( searchrec.Name ));
    if (ext='.bmp') or (ext='.jpg') then
    begin
    ...
    end;
    }
  end;
  while findnext(searchrec) = 0 do
  begin
    if (searchrec.Attr and faDirectory) <> 0 then
    begin
      if (searchrec.name <> '.') and (searchrec.name <> '..') then
        searchpath(path + searchrec.name);
    end
    else
    begin
      { 此处加上你自已的判断文件后缀的代码
      ext := lowercase(extractfileext( searchrec.Name ));
      if (ext='.bmp') or (ext='.jpg') then
      begin
      ...
      end;
      }
    end;
  end;
  findclose(searchrec);
end;