Delphi获取目录下所有文件名，子目录名-南山古桃（转+修改）-关键词：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
             begin
               Form1.ListBox1.Items.Add(SearchRec.Name);
             end;
         found:=FindNext(SearchRec);
     end;
   FindClose(SearchRec);
end;

http://taochaotc.blog.163.com/blog/static/1733711620085109343731/