エクスプローラ風のツリービューを作成するには？ (ID:50599)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

立川です。
先日YuO様に教えていただき、
それをもとに作っていたのですが、どうしても前へ進めなくなってしまいました。
原因がわからないのでどうかご助言お願いします。
LPSHELLFOLDER	lpShellFolder;
LPITEMIDLIST	pFileIDList;
LPENUMIDLIST	pEnumIDList;
LPSHELLFOLDER	pCurFolder;
STRRET		stFileName;
ULONG		ulRetNo;
CString		strFileName;
OLECHAR		ochPath[MAX_PATH];

SHGetDesktopFolder(&lpShellFolder);
lpShellFolder->EnumObjects(GetSafeHwnd(),
                           SHCONTF_FOLDERS | SHCONTF_NONFOLDERS,
                           &pEnumIDList);
while(pEnumIDList->Next(1, &pFileIDList, &ulRetNo) != S_FALSE){
    hRes = lpShellFolder->BindToObject(pFileIDList, NULL,
                                       IID_IShellFolder,
                                       (LPVOID *)&pCurFolder);
    pCurFolder->GetDisplayNameOf(pFileIDList, SHGDN_NORMAL,
                                 &stFileName);
    strFileName = TFileName(pFileIDList, &stFileName);
    //
    //CTreeCtrl::InsertItemする所
    //
}
TFileNameという関数は中でMultiByteToWideChar()とかをやって文字列を表示
させる準備をしています。戻り値はCString型です。
これのBindToObjectがNOERRORを返してくるので、どうやら失敗しているようです。
BindToObjectの前でいけない事してると思うのですが、
何がいけないのか正直わかりません。
汚いソースですが宜しくお願いします

←解決時は質問者本人がここをチェックしてください。

戻る