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

最新推荐文章于 2023-02-28 17:19:28 发布

xfxlylove

最新推荐文章于 2023-02-28 17:19:28 发布

阅读量410

点赞数

分类专栏： Delphi 文章标签： string integer list

本文链接：https://blog.csdn.net/xfxlylove/article/details/7033533

版权

Delphi 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

本文介绍如何遍历一个目录及其子目录，包括计算特定类型文件的数量并将结果存储到List列表中，从而扩展到其他文件操作。

摘要由CSDN通过智能技术生成

下面的功能为实现计算指定目录下某类型的文件个数，并写入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 faDirectory) <> faDirectory then begin

            if (vFound.Name <> '') and (UpperCase(ExtractFileExt(vFound.Name)) = UpperCase(vType)) then

            begin

              AFileItems.Add(ADir + vFound.Name)

            end;

          end;

        end;

      end;

      vFinished := FindNext(vFound);

    end;

    FindClose(vFound);

//  取得子目录中的文件名

    if not vStopSearch then

      for i := 0 to vSourceDirs.Count - 1 do

      begin

        SearchFileExList(vSourceDirs[i],'.DLL',AFileItems);

      end;

  finally

    vSourceDirs.Free;

    vDestDirs.Free;

  end;

end;

加入另一种遍历目录的方法

 procedure GetFileCount(ADir: string);

  var

    vNewDir, vFullName: string;

    vSearchrec: TSearchRec;

  begin

    vNewDir := IncludeTrailingPathDelimiter(ADir);

    if FindFirst(vNewDir + '*.*', faAnyFile-fasysFile, vSearchrec) = 0 then

    begin

      repeat

        vFullName := vNewDir + vSearchrec.Name;

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

        begin

          if DirectoryExists(vFullName) then

            GetFileCount(vFullName)

          else

            vCount := vCount + 1;

        end;

      until FindNext(vSearchrec) <> 0;

    end;

  end;