遍历文件夹下的文件 问题

Question

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

Answer 1

//用递归实现
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');