Author: Jonas Bilinkevicius

How to check if a folder contains subfolders

Answer:
1   
2   function HasSubDirs(dir: string): boolean;
3   var
4     sr: TSearchRec;
5   begin
6     result := false;
7     dir := IncludeTrailingBackslash(dir);
8     if FindFirst(dir + '*.*', faAnyfile, sr) = 0 then
9     begin
10      repeat
11        result := (sr.attr and faDirectory <> 0) and (sr.name <> '.') and (sr.name <>
12          '..');
13      until
14        result or (FindNext(sr) <> 0);
15      FindClose(sr);
16    end;
17  end;