[Delphi] Количество папок на диске

Подскажите пожалуйста как узнать количество папок на диске? Желательно рабочий код

 

отмена)) написал сам

Code:

function ScanDir(dir: string): integer;
var
  SearchRec: TSearchRec;
begin
  if dir <> '' then
    if dir[length(dir)] <> '\' then
      dir := dir + '\';
  if FindFirst(dir + '*.*', faAnyFile, SearchRec) = 0 then
  repeat
    if (SearchRec.name = '.') or (SearchRec.name = '..') then continue;
    if (SearchRec.Attr and faDirectory) <> 0 then
    begin
    inc(i);
    ScanDir(dir+SearchRec.Name)
    end;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
  Result := i;
end;

 

еще вопрос. подскажите плиз как узнать не общее количество папок, а только первого уровня вложенность?
допустим на диске C: 5 папок, и в каждой папке еще по 5 итого 25. как получить?

 

циклом

 

блин, точно, чувак! как я сам не догадался!!
уже кстати не актуально