Vc6 with "new" browsing folder

Cstring mybrowsefolder ()
{
Tchar chpath [max_path]; // String used to store the path
Cstring strpath;
Browseinfo binfo;
Getmodulefilename (null, chpath, max_path );
Strpath = chpath;
Zeromemory (& binfo, Sizeof (Binfo ));
Binfo. hwndowner =: afxgetmainwnd ()-> m_hwnd;
Binfo. lpsztitle = _ T ( " Select the path: " );
Binfo. ulflags = bif_returnonlyfsdirs | 0x40 ;
Binfo. lparam = (lparam) strpath. getbuffer (strpath. getlength ());

Lpitemidlist lpdlist; // Idlist used to save the returned information
Lpdlist = shbrowseforfolder (& binfo ); // Show selection dialog box
Strpath = _ T ( "" );
If (Lpdlist! = NULL) // The user presses the OK button.
{
Shgetpathfromidlist (lpdlist, chpath ); // Convert the project identity list to a string
Strpath. Format (_ T ( " % S " ), Chpath ); // Convert a tchar string to a cstring.
}
Return Strpath;
}