***只给定一个本地盘（如c或d或e），如何取得符合文件后缀的所有文件***

Question

比如如何取得后缀为.txt的在该盘下的所有文件？？
小妹求助

Answer 1

//刚好正在开发的程序有一个类似的函数，自己改造一下吧。用了递归。
//定义一个外部变量,slTemp(TStringList)用来保存找到的文件信息。procedure FindAllFile(FPath:String);
var sr: TSearchRec;
    FileAttrs: Integer;
begin
  FileAttrs := faReadOnly + faHidden+ faSysFile+ faVolumeID+ faDirectory+faArchive+faAnyFile;
  if FindFirst(FPath+'*.txt', FileAttrs, sr) = 0 then  begin
    repeat
      //是目录
      if ((sr.Attr and faDirectory) = faDirectory)
        and (sr.Name<>'.') and (sr.Name<>'..') then  begin
        FindAllFile(FPath+sr.Name+'\');
      end else begin
        //是文件
        slTemp.Add(FPath+sr.Name);
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Answer 2

procedure FindAllFile(FPath:String);
var sr: TSearchRec;
    FileAttrs: Integer;
begin
  FileAttrs := faReadOnly + faHidden+ faSysFile+ faVolumeID+ faDirectory+faArchive+faAnyFile;
  if FindFirst(FPath+'*.txt', FileAttrs, sr) = 0 then  begin
    repeat
      //是目录
      if ((sr.Attr and faDirectory) = faDirectory)
        and (sr.Name<>'.') and (sr.Name<>'..') then  begin
        FindAllFile(FPath+sr.Name+'\');
      end else begin
        //是文件
        slTemp.Add(FPath+sr.Name);
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;
 是可以实现的,学习...
我平时也借助一些第三方的控件来实现,比如:Disk.Controls 
这个来找文件是很方便的,绑定几个属性(查找选项)就OK 了

Answer 3

回复人： belllab(菜鸟) ( 
来晚了，已经解决

Answer 4

不可以，我设了个buttonclick时间调用该函数，FindFirst(FPath+'*.txt', FileAttrs, sr)=2直接跳出了！！我困惑！！