当前位置：文江博客话题详情

查找文件夹

发布于 2024-08-25 14:00:17 字数 84 浏览 2 评论 0原文

我想知道文件夹中有多少文件夹，或者我应该知道文件夹中有多少 SubFolred。那么，我应该怎么做呢？？？

PS我正在用Delphi编程

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

静谧 2024-09-01 14:00:17

除了 FindFirst 技巧之外，如果您想计算树中的所有文件夹（即所有级别）而不仅仅是直接文件夹，您还需要使用递归。

这是递归方法的一个简短示例，看起来正是您正在寻找的。提示：Find() 方法是递归使用的。

DelphiTricks.com 上的递归搜索示例

回复收藏 0 原文

一笔一画续写前缘 2024-09-01 14:00:17

http://www.delphibasics.co.uk/RTL.asp?Name=查找第一个

回复收藏 0 原文

夜访吸血鬼 2024-09-01 14:00:17

这取决于您的编译器版本。如果您使用的是 Delphi 2010，我能想到的最简单的代码是这样的：

uses IOUtils, Types;

function GetSubDirCount(const Path: string): Cardinal;
var
  StrArray : TStringDynArray;
begin
  StrArray := TDirectory.GetDirectories(Path,'*',IOUtils.TSearchOption.soAllDirectories);
  Result := Length(StrArray);
end;

It depends on your compiler version. If you are using Delphi 2010, the simplest code I can come up with is this:

uses IOUtils, Types;

function GetSubDirCount(const Path: string): Cardinal;
var
  StrArray : TStringDynArray;
begin
  StrArray := TDirectory.GetDirectories(Path,'*',IOUtils.TSearchOption.soAllDirectories);
  Result := Length(StrArray);
end;

回复收藏 0 原文