怎样读出一个目录下的子目录？(50分)

读出一个目录（包括子目录）内的所有文件我会，但我不知道怎样得到该目录下<br>所有子目录名。

procddure IsDirNotation(DirName: String): Boolean;<br>begin<br>&nbsp; Result := (DirName = '.') or (DirName = '..');<br>end;<br><br>ResRec: TSearchRec;<br><br>FindResult := FindFirst(Path + '*.*', faDirectory, ResRec); &nbsp;<br>ResRec包含目录信息<br><br>while FindResult = 0 do<br>begin<br>&nbsp; if ((ResRec.Attr and faDirectory) = faDirectory) and not<br>&nbsp; &nbsp; IsDirNotation(ResRec.Name) //判断不为'.','..'子目录<br>&nbsp; then<br>&nbsp; //do your job.<br>&nbsp; FindResult := FindNext(ResRec);<br>end;<br><br><br>

没错！使用TSearchRec结构可以实现，<br>循环查找指定目录下的结果，<br>然后判断它的Attr属性即可。。。<br>必要时可以利用递归算法。。。<br>FindFirst<br>FindNext<br>Close...

同意，在Delphi帮助中，有现成的例子。

谢谢郭玉梁的答案。虽然我还没有验证，但我相信是正确的。<br>