delphi获取目录下所有文件名

时间:2021-10-18 14:32:23

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