遍历文件夹下的文件 有关问题

遍历文件夹下的文件 问题
有一个大文件夹，其下的很多个小文件夹，每个小文件夹下有我想处理的多个文件，我想遍历整个大文件夹下的所有文件夹，然后分别处理小文件夹下的文件，请大侠帮帮我，我对这方面不太懂，请给我讲的详细点，谢谢。

[解决办法]
//用递归实现
procedure FindNewToOld(Dir: string);
var sr: TSearchRec;
begin
if FindFirst(Dir+ '\*.* ', faAnyFile, sr) = 0 then
begin
repeat
if ((sr.Attr and faDirectory)=faDirectory) and(sr.Name <> '. ') and (sr.Name <> '.. ') then
FindNewToOld(Dir+ '\ '+sr.Name)
else if (sr.Name <> '. ') and (sr.Name <> '.. ') then
//你的处理文件的函数或过程
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

调用

FindNewToOld( 'c:\mydir ');