如何获取我的文档内所有文件夹的名字？

Question

如题，只需获得所有文件夹的名字就行，文件不需要。另外不知道XP和WIN7系统是否一致。求高人解答，谢谢！

Answer 1

findfirst，findnext
google “delphi 遍历目录”

Answer 2

var
SearchRec:TSearchRec;   //搜索对象
ext,AppPath:string;
begin
   listbox1.Clear;        //清空列表框
   AppPath:=edit1.text;   //设置要搜索的目标目录
   ext:='*.*';            //设置要搜索的文件后缀名
   FindFirst(AppPath+ext,faDirectory,SearchRec);   
   listbox1.Items.Add(SearchRec.Name);           //添加文件名称
   while FindNext(SearchRec)=0 do
      listbox1.Items.Add(SearchRec.Name);        //添加文件名
end;

Answer 3

var
  sr: TSearchRec;
begin
  ListBox1.Items.Clear ;
  if FindFirst('D:\*.', faDirectory, sr) = 0 then
  begin
    repeat
      if (sr.Name<>'.') and (sr.Name<>'..') then
        ListBox1.Items.Add(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;要获取子目录，就改成递归