如何获取指定目录下的目录名列表

Question

我想实现一个功能，获取指定目录下的目录名列表，不是要文件名哦，只要目录名列表。。举个例，D:\下有A B C D四个目录，A目录下又有a b c三个子目录，此时如何实现在输入D:\之后，文本框显示如下
A
 a
 b
 c
B
C同志们帮帮俺，谢谢了

Answer 1

用DirectoryListBox不就行了？？？

Answer 2

procedure   Tmainform.Button1Click(Sender:   TObject);   
  var   searchrec:tsearchrec;       //*********************************   
          path,filename:string;       //   最简单的使用(文件)   查找   
          findresult:integer;           //只能搜索指定目录（不包含子文件夹）   
                                                          //*********************************   
  begin   
  lbfiles.Clear;   
  findresult:=findfirst(路径+文件名,faanyfile+fahidden+   
              fasysfile+fareadonly,searchrec);   
          while   findresult   =0   do   
          begin   
              lbfiles.Items.Add(lowercase(path+searchrec.Name   ));//lbfiles是一个listbox   
              findresult   :=findnext(searchrec);   
          end;   
  end;