Поиск папок

Question

Я хочу узнать, сколько папок находится в папке, или я должен сказать, сколько вложенных папок в папке. Итак, как мне это сделать ???

P.S. Я программирую с Delphi

Answer 1

В дополнение к уловке FindFirst вам потребуется использовать рекурсию, если вы хотите сосчитать все папки в дереве (то есть все уровни), а не только непосредственную папку.

Вот краткий пример рекурсивного подхода, который выглядит как раз то, что вы ищете. Подсказка: метод Find () используется рекурсивно.

Пример рекурсивного поиска на DelphiTricks.com

Answer 2

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

Answer 3

Это зависит от версии вашего компилятора. Если вы используете 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; 

Answer 4

Вы не упомянули, какую версию Delphi вы используете. В последней версии есть модуль IOUtils, который включает класс TDirectory. Смотрите пример здесь: текст ссылки