查找某目录下的所有文件

2016-02-19 13:22 4 1 收藏

只要你有一台电脑或者手机，都能关注图老师为大家精心推荐的查找某目录下的所有文件，手机电脑控们准备好了吗？一起看过来吧！

【 tulaoshi.com - 编程语言】

（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;

来源:http://www.tulaoshi.com/n/20160219/1603968.html

看过《查找某目录下的所有文件》的人还看了以下文章更多>>

QQ安装目录下文件夹的作用

标签：电脑入门

在QQ的安装目录下以你的QQ号码为名字的文件夹里有几个关键文件，保存着你的QQ的一些信息，如果用好了它们，可以玩出一些有趣的花样。 1,MsgEx.db文件：是你正常登陆过QQ后生成的，如果删除该文件QQ就会无法正常登陆!不过，如果用其他QQ号码文件夹下的同名文在QQ的安装目录下以你的QQ号码为名字的文件夹里有几个关键文件，保存着你的QQ的一...

java对指定目录下文件读写操作介绍

标签：编程语言网络编程

最近因为项目的国际化的需要，需要对整个项目的100来个插件做国际化，这是一件痛苦的事情，因为纯体力劳动。为了省点工作量，想着能不能写个程序批处理了，减少点工作量，于是就有了下面的代码。 1.读取指定的（.java）文件：代码如下： public static String readFile(String path) throws IOException { File f = new File(path); St...

QQ目录下各文件用途不完全揭密

标签：电脑入门

打开QQ安装目录，你会发现里边的文件非常多，如果搞清楚它们每个的作用，那么你就可以完成不少在QQ常规操作情况下实现不了的目的，而且更加快捷，图老师小编收集了QQ目录下各个文件的作用说明，想成为QQ高手这个一定要认真看的哦。 QQ的安装根目录下的文件： ACodec.dll （音频聊天） +BQQApplication.dll （企业好友面...

《虐杀原形》目录下的大体积文件需要慎重对待

《虐杀原形》目录下的大体积文件需要慎重对待会员：未知用户（原创撰写）刚才上来看到说那4个接近4G的文件全部是DUMMY，移出后进游戏果然没有任何异常。但是在打开WEB OF INTRIGUE(阴谋之网)的时候问题来了，里面每个已经被吸收后的细胞记忆全部无法浏览。我再把那4个文件移进游戏根目录又可以正常浏览了。 ...

查找Linux系统中的大文件和大目录方法

标签：服务器

查找Linux系统中的大文件和大目录方法查找大文件 eg：查找当前目录下大于10MB的文件代码如下: $ find . -type f -size +10000k -exec ls -lh {} ; | awk ‘{ print $8 : $5 }’ Sample output: ./.kde/share/apps/akregator/Archive/http___blogs.msdn.com_MainFeed.aspx?Type=AllBlogs.mk4...

查看更多精彩>>