两个delphi下遍历指定目录下指定类型文件的函数

// ================================================================

// 遍历某个文件夹下某种文件,

// 使用说明

//       _GetFileList(ListBox1.Items,'c:/*.doc');

//           _GetFileList(MyTStringList,'c:/*.exe');

// ================================================================

procedure TForm1._GetFileList(AStrings: TStrings ; ASourFile: string);

var sour_path,sour_file: string;

    TmpList:TStringList;

    FileRec:TSearchrec;

begin



   sour_path:=ExtractFilePath(ASourFile);

   sour_file:=ExtractFileName(ASourFile);



   if not DirectoryExists(sour_path) then

   begin

     AStrings.Clear;

     exit;

   end;



   TmpList:=TStringList.Create;

   TmpList.Clear;



   if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then

   repeat

      if ((FileRec.Attr and faDirectory) = 0) then

         begin

           TmpList.Add(sour_path+FileRec.Name)

         end;

   until FindNext(FileRec)<>0;



   SysUtils.FindClose(FileRec);



   AStrings.Assign(TmpList);



   TmpList.Free;

end;



// ================================================================

// 遍历某个文件夹及子文件夹下某种文件,

// 使用说明

//       _GetFileList(ListBox1.Items, 'c:/', '*.doc');

//           _GetFileList(MyTStringList, 'c:/', '*.exe');

// ================================================================

procedure _GetFileList(AStrings: TStrings; ASourFile,

  FileName: string);

var sour_path,sour_file: string;

    TmpList:TStringList;

    FileRec, subFileRec:TSearchrec;

    i: Integer;

begin

   if rightStr(trim(ASourFile), 1) <> '/' then

     sour_path :=trim(ASourFile) + '/'

   else

     sour_path :=trim(ASourFile);

   sour_file:= FileName;



   if not DirectoryExists(sour_path) then

   begin

     AStrings.Clear;

     exit;

   end;



   TmpList:=TStringList.Create;

   TmpList.Clear;



   if FindFirst(sour_path+'*.*',faAnyfile,FileRec) = 0 then

   repeat

      if ((FileRec.Attr and faDirectory) <> 0) then

         begin

           if ((FileRec.Name<> '.') and (FileRec.Name  <> '..')) then

             _GetFileList(AStrings, sour_path+ FileRec.Name + '/',  sour_file);

         end

      else

        if FindFirst(sour_path + FileName,faAnyfile,subFileRec) = 0 then

        repeat

          if ((subFileRec.Attr and faDirectory) = 0) then

            TmpList.Add(sour_path+subFileRec.Name);

        until FindNext(subFileRec)<>0;



   until FindNext(FileRec)<>0;



   SysUtils.FindClose(FileRec);

   for i := 0 to TmpList.Count -1 do

     AStrings.Add(TmpList.Strings[i]);



   TmpList.Free;

end;