获取一个文件夹下的一级目录

function TForm1.GetFolders(MainPath:string):TStringList;var  SearchRec: TSearchRec;  sMainpath: String;  list:TStringList;begin  list:=TStringList.Create;  if MainPath[Length(MainPath)]='\' then  sMainpath:=MainPath  else sMainpath:=MainPath+'\';  FindFirst(sMainPath+'*.*',faDirectory,SearchRec);  if SearchRec.Name<>'' then  begin    if (SearchRec.Attr and faDirectory)=faDirectory then      if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then         list.Add(SearchRec.Name);    while  (FindNext(SearchRec)=0) do    begin      if (SearchRec.Attr and faDirectory)=faDirectory then        if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then          list.Add(SearchRec.Name);    end;  end;  Result:=list;end;