怎么检测某个目录下是否有子目录？

[Eastunfail]

RT..

最好不要用FindFirst/FindNext/FindClose。

如果实在是不行，还是就用这把

[sevencat]

只有这样才行，不然没办法，
好像必须找出一个个文件，然后测试他们是不是目录，因为WINDOWS的目录结构中没有一个字段是表明有没有子目录的。而且每个里面都有.和..

[Billy_Chen28]

procddure IsDirNotation(DirName: String): Boolean;
begin
Result := (DirName = '.') or (DirName = '..');
end;

ResRec: TSearchRec;

FindResult := FindFirst(Path + '*.*', faDirectory, ResRec);
ResRec包含目录信息

while FindResult = 0 do
begin
if ((ResRec.Attr and faDirectory) = faDirectory) and not
IsDirNotation(ResRec.Name) //判断不为'.','..'子目录
then
//do your job.
FindResult := FindNext(ResRec);
end;

[Eastunfail]

哎~~还是要用Find系列函数。算了，自己去解决。