最简单的查找文件的代码

本文主要是介绍最简单的查找文件的代码，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

本文来自http://blog.csdn.net/hellogv/

---

procedure TSysClass.FindAll(path: String; var fileresult: TStrings);//查找文件 ，path不带'\'varfpath,s: String;fs: TsearchRec;i:integer;beginfpath:=path+'\*.*';if FindFirst(fpath,faAnyFile,fs)=0 thenbeginif (fs.Name<>'.')and(fs.Name<>'..') thenif (fs.Attr and faDirectory)=faDirectory thenfindall(path+'\'+fs.Name,fileresult)elsefileresult.add(path+'\'+fs.Name);while findnext(fs)=0 dobeginif (fs.Name<>'.')and(fs.Name<>'..') thenif (fs.Attr and faDirectory)=faDirectory thenFindall(path+'\'+fs.Name,fileresult)else beginfileresult.add(path+'\'+fs.Name);end;end;end;Findclose(fs);end;

这篇关于最简单的查找文件的代码的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---