Delphi获取目录下所有文件名

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

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

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

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

 

来自为知笔记(Wiz)