遍历指定目录及其子目录下所有文件

function ReturnFiles(slFilePath: string):TStringList;
var
Sr : TSearchRec;
Err : integer;
begin
result:=TStringList.Create;
if slFilePath='' then
exit;
if RightStr(slFilePath,1)<>'\' then
slFilePath:=slFilePath+'\';
Err:=FindFirst(slFilePath+'*', faAnyFile, Sr) ;
While (Err = 0) do
begin
if (sr.Name[1]<>'.')and ((Sr.Attr and faDirectory) = 0) then
Result.Add(Sr.Name);
if ((Sr.Attr and faDirectory) <> 0) AND (Sr.Name[1] <> '.') then
begin
ReturnFiles(slFilePath+ sr.Name);
end;
Err:=FindNext(Sr) ;
end ;
FindClose(Sr);
end;