如何将某个文件夹下面的所有"文件夹"的名子读到,TStringList里面?(10分)

如何将某个文件夹下面的所有"文件夹"的名子读到,TStringList里面?

用一个循环

procedure TForm1.Search(Path: String);
var
SearchRec: TSearchRec;
StrList: TStringList;
Temp: Integer;
begin
StrList:= TStringList.Create;
if FindFirst(Path+'/*.*',faDirectory,SearchRec) = 0 then
StrList.Add(SearchRec.Name);
while FindNext(SearchRec) = 0 do
StrList.Add(SearchRec.Name);
FindClose(SearchRec);
for Temp:= 0 to StrList.Count - 1 do
ShowMessage(StrList.Strings[Temp]);
StrList.Free;
end;

用FindFirst, FindNext, FindClose实现，如果包括所有的子文件夹，可以用递归，否则只需楼上那样的循环就OK了。

是呀，zbr写的很全面的，
我帮你调试过了，很好的。

多人接受答案了。