CoCreateInstance issue on windows 7
HRESULT BasicFileOpen(){
    IFileDialog *pfd = NULL;
    HRESULT hr = CoCreateInstance(CLSID_FileOpenDialog, NULL, CLSCTX_INPROC_SERVER,    IID_PPV_ARGS(&pfd));

    if (SUCCEEDED(hr))
    {
        DWORD dwFlags;

        hr = pfd->GetOptions(&dwFlags);
        if (SUCCEEDED(hr))
        {
            hr = pfd->SetOptions(dwFlags | FOS_PICKFOLDERS);

        if (SUCCEEDED(hr))
        {
            hr = pfd->Show(NULL);

            if (SUCCEEDED(hr))
            {
            IShellItem *psi;
            hr = pfd->GetResult(&psi);
                    //DO SOMETHING
            }
        }
         }
     }
     pfd->Release();
     return hr;
}


int APIENTRY wWinMain(HINSTANCE, HINSTANCE, PWSTR, int){
    HRESULT hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE);
    if (SUCCEEDED(hr))
    {
        BasicFileOpen();
    }
    return 0;
}