MFC获取文件夹下的所有子文件夹名称

如何遍历得到目录下的所有文件夹名
我需要完成这样的简单功能，传入文件路径，得到当前路径下的所有文件夹的名称。不需要遍历子文件夹。

比如输入d:\  得到d盘下有所有文件夹名称。不需要文件名，不需要遍历子文件夹。

void FindAllFile(CString   strParent) //路径 递归查找所有文件


{   


CString strText_i,str;  


CFileFind finder;    


bool bFind=finder.FindFile(strParent   +   "*.*"); 


while (bFind) 


{      


bFind=finder.FindNextFile();  


if (finder.IsDots())  


continue;      


if (finder.IsDirectory())//是文件夹


{    


finder.GetFileName();//文件夹名称


//FindAllFile(strParent+finder.GetFileName()+"\\");//递归打开文件夹   


}    


}


}