怎么样才能遍历一个目录跟其下的子目录(以二种方式实现

 

下面的功能为实现计算指定目录下某类型的文件个数，并写入List列表中，根据这个可写出对文件目录的其他的操作

procedure SearchFileExList(const ADir, vType: string; var AFileItems: TStringList);

var

  vFound: TSearchRec;

  vSourceDirs, vDestDirs: TStrings;

  vFinished, i: integer;

  vStopSearch: Boolean;

begin

  vStopSearch := False;

  vSourceDirs := TStringList.Create;

  vDestDirs := TStringList.Create;

  try

    vFinished := FindFirst(ADir + '*.*', 63, vFound);

    while (vFinished = 0) and not (vStopSearch) do

    begin

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

      begin

        if (vFound.Attr and faDirectory) = faDirectory then

        begin

              //取得子目录名

          vSourceDirs.Add(ADir + vFound.Name + '\');

        end

        else

        begin

        //只取当前目录下的文件名

          if (vFound.Attr and f