除了递归,我觉得这个递归处理不好会溢出.
有什么更快速的方法吗?
请兄弟指点一下!

谢谢兄弟的回复,我不重开帖了,就在原来的上面改.那个也是用递归.

调用方法：
DFSFiles('c:\');
其中c:\是要深搜的文件夹名称
输出到lstDFSFiles:TListBox

procedure DFSFiles(filename:string);
var curfile:TSearchRec;
begin
ChDir(filename);
if (FindFirst(filename+'*.*',faAnyFile,curfile) = 0) then
begin
  repeat
    if ( ( (curfile.Attr and faDirectory)<>0 ) and (curfile.Name <> '.') and (curfile.Name <> '..') ) then
    begin
      DFSFiles( ExpandFileName(curfile.Name) + '\' );
    end
    else
    begin
      if not DirectoryExists( ExpandFileName(curfile.Name) ) then
      begin
        if ( pos( UpperCase(ExtractFileExt(curfile.Name)),Exts ) <> 0 ) then
          frmMain.lstDFSFiles.Items.Append( ExpandFileName(curfile.Name) );
      end;
    end;
  until (FindNext(curfile) <> 0);
  FindClose(curfile);
end;
ChDir('..');
end;

我帖的这个帖的递归就还可以,我想找有没有更快速的.

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)