怎么搜索一个文件夹下所有的txt文件

罂粟

我是新手，问题有点多:cry
一个文件夹下有许多文件类型，我只要对txt文件进行处理，但怎么搜索啊，我要所有它们的文件路径啊

comeheres

1. Function FindFile(const FileSpec: TFileName;attributes: integer): TStringList; Export;
   
2. var
   
3.     Spec: String; //文件名
   
4.     list: TStringList;
   
5.     //------------------查询下级目录的子过程
   
6.     procedure RFindFile(const Folder: TFileName);
   
7.     var
   
8.        SearchRec: TSearchRec;
   
9.     begin
   
10.          if FindFirst(Folder + Spec, Attributes, SearchRec)=0 then
    
11.          begin
    
12.                try
    
13.                    repeat
    
14.                         if (SearchRec.Attr and faDirectory = 0) or (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
    
15.                            list.Add(Folder + SearchRec.Name);
    
16.                    until FindNext(SearchRec) <> 0;
    
17.                except
    
18.                         FindClose(SearchRec);
    
19.                         raise;
    
20.                end;
    
21.                FindClose(SearchRec);
    
22.          end;
    
23.          if FindFirst(Folder + '*', Attributes Or faDirectory, SearchRec) = 0 then
    
24.          begin
    
25.               try
    
26.                  repeat
    
27.                        if ((SearchRec.Attr and faDirectory) <> 0) and
    
28.                            (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
    
29.                           RFindFile(Folder + SearchRec.Name + '\');
    
30.                  until FindNext(SearchRec) <> 0;
    
31.               except
    
32.                  FindClose(SearchRec);
    
33.                  raise;
    
34.               end;
    
35.               FindClose(SearchRec);
    
36.          end;
    
37.     end;
    
38.     //------------------
    
39. begin
    
40.      List := TStringList.Create;//创建字符传列表
    
41.      try
    
42.         spec := ExtractFileName(filespec);//返回指定文件名
    
43.         RFindFile(ExtractFilePath(filespec));//返回指定路径
    
44.         Result := list;//函数返回值是List;
    
45.      Except
    
46.         List.Free;
    
47.         raise;
    
48.      end;
    
49. end;

复制代码

FindFile(文件夹路径+'\*.txt',0)  返回一个包含所有TXT文件路径的TStringList

技术成就梦想

用搜索*.text 即可