SHBrowseForFolder设置默认文件夹

网上找了很多设置默认文件夹得方法，但是大多不尽如人意，最后找到了如下代码（自已也改了一些），发现比较合适，给大家分享下。

int CALLBACK BrowserCallbackProc

(//回调函数

HWND hWnd,

UINT uMsg,

LPARAM lParam,

LPARAM lpData

)

{

switch(uMsg)

{

case BFFM_INITIALIZED: //设置默认选择的文件夹

::SendMessage(hWnd,BFFM_SETSELECTION,1,lpData);

break;

default:

break;

}

return 0;

}

//strTitle 为对话框标题 strDir为默认路径调用结束后strDir为选择的路径

bool SelDirectory(HWND hWnd,LPCTSTR strTitle,CString& strDir)

{

BROWSEINFO bi;

char szDisplayName[MAX_PATH] = {0};

bi.hwndOwner = hWnd;

bi.pidlRoot = NULL;

bi.pszDisplayName = szDisplayName;

bi.lpszTitle = strTitle;

bi.ulFlags = BFFM_SETSELECTION;

bi.lpfn = BrowserCallbackProc;

bi.lParam = (LPARAM)(LPCTSTR)strDir;

bi.iImage = NULL;

// 显示目录选择对话框，如果按了取消，那么piid为NULL

ITEMIDLIST* piid = ::SHBrowseForFolder(&bi);

if(piid==NULL)

{

return false;

}

// 得到选择的目录

BOOL bValidPath = ::SHGetPathFromIDList(piid,szDisplayName);

if (!bValidPath)

{

return false;

}

LPMALLOC lpMalloc;

VERIFY(NOERROR==::SHGetMalloc(&lpMalloc));

lpMalloc->Free(piid);

lpMalloc->Release();

if('/0'==szDisplayName[0])

{

return false; //用户选择的可能的虚拟文件系统

}

strDir = szDisplayName;

strDir.TrimRight("//");

return true;

}

调用代码：

CString path;

path="D://实用软件//VC6MSDN";

SelDirectory (GetSafeHwnd(),"设置了默认文件夹哦",path);