查找文件夾

Question

我想查找文件夾中有多少文件夾，或者我應該說有多少個子文件夾在文件夾中。那麼，我該怎麼做呢？

P.S.我用Delphi

Answer 1

編程除了使用FindFirst招，你需要使用遞歸，如果要算樹中的所有文件夾（即所有級別），而不僅僅是眼前夾。

下面是遞歸方法的一個簡短例子，看起來正是你要找的。提示：Find（）方法遞歸使用。

Recursive Search example at DelphiTricks.com

Answer 2

http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst

Answer 3

你沒有提到你使用德爾福的版本。最新版本的IOUtils單元包含TDirectory類。在這裏看到一個例子：link text

Answer 4

這取決於你的編譯器版本。如果你使用的是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;