遍歷指定目錄下指定類型文件的函數

//　================================================================　
//　遍歷某個文件夾下某種文件,　
//　使用說明　
//　　　　_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;　
　
　　FindClose(FileRec);　
　　for　i　:=　0　to　TmpList.Count　-1　do　
　　　AStrings.Add(TmpList.Strings[i]);　
　
　　TmpList.Free;　
end;