如果读取指定目录下的子目录，然后添加到 listbox1中？成为其的items

Question

如果读取指定目录下的子目录，然后添加到 listbox1中？成为其的items
帮忙~~~

Answer 1

// 从搜索记录中判断是否是子目录
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else
Result:=False;
end;//  子目录级的文件查询--查询主体函数
function SearchFile(mainpath:string;var foundresult:TStrings):Boolean;
var
  Found:Boolean;
  searchRec:TsearchRec;
begin
  found:=false;
  if Trim(filename)<>'' then
  begin
    //找出所有下级子目录。
    if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then
    begin
      if IsValidDir(SearchRec) then
        foundresult.Add(SearchRec.Name);
      while (FindNext(SearchRec) = 0) do
      begin
        if IsValidDir(SearchRec) then
          foundresult.Add(SearchRec.Name);
      end;
    end;
    FindClose(SearchRec);  end;
  result:=found;
end;

Answer 2

这个是前面讲过的。
能不能将查找的结果添加到listbox中？？形成像资源管理器一样的树形结构

Answer 3

用控件显示行不行，为什么要查询呢？
win3.1或Samples下面的控件
DirectoryListBox,DirectoryOutline