下面代码可以递归找出指定目录下所有子目录中的所有文件，我想实现只递归一层，如何修改呢？(5分)

fr:=FindFirst(Path,faAnyFile,sr);<br>while fr=0 do<br>begin<br>if (sr.Attr=faDirectory)and(sr.Name&lt;&gt;'.')and(sr.Name&lt;&gt;'..') then<br>FindAll(path+sr.Name)<br>else<br>begin<br>showmessage(sr.name);<br>end;<br>fr:=FindNext(sr);<br>end;<br>FindClose(sr);<br><br>比如说,目录结构为d:/a/b/c/d/ &nbsp;现在我选定path 为d:/a/ 那么函数将查找d:/a/ 及 d:/a/b/下的所有文件，对c 及 d 两个更深的子目录则不查找，如何实现呢？