查找某目录下的所有文件

（1）查找指定扩展名的文件
procedure tform1.button1click(sender: tobject);
var
  sr: tsearchrec;
begin
  listbox1.items.clear ;
  if findfirst('d:\work\*.*', faanyfile, sr) = 0 then
  begin
    repeat
      if pos('.xls',lowercase(sr.name))>0 then
        listbox1.items.add(sr.name)  ;
    until findnext(sr) <> 0;
    findclose(sr);
  end;
end;

（2）查找某目录下的所有文件,非目录
procedure tform1.button2click(sender: tobject);
var
  sr: tsearchrec;
begin
  listbox1.items.clear ;
  if findfirst('d:\work\*.*', faanyfile, sr) = 0 then
  begin
    repeat
      if (sr.attr and fadirectory)=0 then
        listbox1.items.add(sr.name+ '   '+inttostr(sr.attr))  ;
    until findnext(sr) <> 0;
    findclose(sr);
  end;
  showmessage(inttostr(listbox1.items.count));
end;

（3）查找某目录下的所有目录,包含 “.”  “..”
procedure tform1.button2click(sender: tobject);
var
  sr: tsearchrec;
begin
  listbox1.items.clear ;
  if findfirst('d:\work\*.*', faanyfile, sr) = 0 then
  begin
    repeat
      if (sr.attr and fadirectory)<>0 then
        listbox1.items.add(sr.name+ '   '+inttostr(sr.attr))  ;
    until findnext(sr) <> 0;
    findclose(sr);
  end;
  showmessage(inttostr(listbox1.items.count));
end;