VC 浏览“我的电脑”文件夹

CString CPackedDlg::browster()
{
 CString sFolder;  
 LPMALLOC pMalloc;

 if(::SHGetMalloc(&pMalloc) == NOERROR)  
 {
  BROWSEINFO bi;  
  TCHAR pszBuffer[MAX_PATH];  
  LPITEMIDLIST pidl;  

  bi.hwndOwner =  GetSafeHwnd();  
  bi.pidlRoot  =  NULL;  
  bi.pszDisplayName = pszBuffer;  
  bi.lpszTitle = _T("选择要打包的文件夹");  
  bi.ulFlags =  BIF_RETURNFSANCESTORS | BIF_RETURNONLYFSDIRS;  
  bi.lpfn = NULL;  
  bi.lParam = 0;  

  if((pidl = ::SHBrowseForFolder(&bi))!= NULL)  
  {
   if(::SHGetPathFromIDList(pidl,pszBuffer))  
   {
    sFolder =   pszBuffer;  
             }  
             pMalloc->Free(pidl);  
  }  
        pMalloc->Release();  
 }
 return sFolder;
}