Does a directory have any subdirectories?
Source position: tiUtils.pas line 231
function tiHasSubDirectory(
AStartDir: string
):Boolean;