Delphi获取目录下所有文件名

最新推荐文章于 2022-12-29 09:35:36 发布

weixin_30835933

最新推荐文章于 2022-12-29 09:35:36 发布

阅读量338

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/p/3875841.html

本文提供了两种实用的文件搜索函数，一种用于获取指定路径下的一级文件列表，另一种则能将文件列表展示在ListView控件中。这些函数适用于需要快速检索文件的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//获取一个文件夹下的所有文件

//不包括文件夹里面的文件

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

//搜索1个文件下面的文件
// GetDirFiles (ListView1,'Z:\aa\2013-06-23\');
procedure GetDirFiles(ListView:TListView;path: string;fileter:string='*.*');
var
  SearchRec: TSearchRec;
  found: integer;
begin
  ListView.Items.Clear;
  found := FindFirst(path + fileter, faAnyFile, SearchRec);
  while found = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and (SearchRec.Attr <> faDirectory) then
        ListView.Items.Add.Caption:=SearchRec.Name;
    found := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;