请问如何用findfirst,findnext找出指定目录下的目录而不是文件？(50分)

[]

if searchrec.Attr=faDirectory  then 是目录。

这是一个例子，可以得到包括隐藏的目录在内的所有目录<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; hFindFile: Cardinal;<br>&nbsp; FindFileData: WIN32_FIND_DATA;<br>&nbsp; DirList: TStringList;<br>begin<br>&nbsp; DirList := TStringList.Create;<br><br>&nbsp; hFindFile := FindFirstFile('*.*', FindFileData);<br><br>&nbsp; if hFindFile &lt;&gt; 0 then<br>&nbsp; &nbsp; repeat<br>&nbsp; &nbsp; &nbsp; if (FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; DirList.Add(FindFileData.cFileName);<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; until FindNextFile(hFindFile, FindFileData) = false;<br><br>&nbsp; DirList.Free;<br>end;<br>

谢谢！可以了。