首页 > Windows开发 > 详细

delphi获取目录下所有文件名

时间:2017-03-22 12:33:00      阅读:176      评论:0      收藏:0      [点我收藏+]

delphi获取目录下所有文件名

procedure  searchfile(path:string);//注意,path后面要有‘\‘;   
var   SearchRec:TSearchRec;
  found:integer; begin   found:=FindFirst(path+‘*.*‘,faAnyFile,SearchRec); while found=0 do begin   if (SearchRec.Name<>‘.‘) and (SearchRec.Name<>‘..‘) and (SearchRec.Attr<>faDirectory) then   ListBox1.Add(SearchRec.Name); found:=FindNext(SearchRec); end; FindClose(SearchRec); end;

上面一个只获取当前目录下所有文件,如果要获取该目录下的子目录的文件,看下面

procedure  SearchFile(path:string);
var   
  SearchRec:TSearchRec;   
  found:integer;   
begin   
  found:=FindFirst(path+‘*.*‘,faAanyFile,SearchRec);   
   while    found=0    do   
  begin    if (SearchRec.Name<>‘.‘) and (SearchRec.name<>‘..) and (SearchRec.Name=faDirectory) then       SearchFile(SearchRec.Name+‘\‘) else LisBox1.Add(SearchRec.Name); found:=FindNext(SearchREc); end;   FindClose(SearchRec);
end;

  

delphi获取目录下所有文件名

原文:http://www.cnblogs.com/coorun/p/6598957.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!