搜索多个目录！！！(50分)

各位大虾：
小弟现在做的系统里有个功能，是可以搜索到指定的目录，但是返回的结果只有一个目录，现想做个搜索目录，返回根目录下的所有目录。比如说d:/的所有目录，把结果传递给Tstrings对象。谁知道怎样做，如果实现的话，小弟将送上全部积分。谢谢！！！！！！！！！

搜索的目录你加了*.*没有?

楼主,你究竟要什么功能啊?
QQ:56889758
晚上说

用这个函数可以实现你的功能findfirst();
具体的函数参数请看帮助。

procedure listAllFolders(p_Path: String; p_Rtn: TStrings);
var
v_Found: integer;
v_SearchRec: TSearchRec;
v_FolderName: string;
begin
v_Found := FindFirst(p_Path+'/*.*',faAnyFile,v_SearchRec);
while v_Found = 0 do
begin
v_FolderName:=v_SearchRec.Name;
if (v_SearchRec.Attr=faDirectory) and (v_FolderName <> '.') and (v_FolderName <> '..') then
begin
p_Rtn.Add(v_FolderName);
listAllFolders(p_Path+'/'+v_FolderName, p_Rtn);
end;
v_Found := FindNext(v_SearchRec);
end;
FindClose(v_SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
listAllFolders('D:/document',Memo1.Lines);
end;