Исходный текст

//---------------------------------------------------------
// Диалог добавления файла к объекту TDMS.
// Добавляет файл к выбранному объекту.
//---------------------------------------------------------

// выбрать объект
MessageBox(NULL, "Укажите объект для добавления файла", "TDMS Example", MB_OK | MB_ICONINFORMATION);
CComPtr<ITDMSObject> pObject;
if (SelectObject(&pObject, pApp, NULL)) 
{
    // показать диалог добавления файла
    CComPtr<ITDMSDialogs> pDialogs;
    CheckError(pApp->get_Dialogs(&pDialogs));
    CComPtr<ITDMSAddFileDlg> pAddFileDlg;
    CheckError(pDialogs->get_AddFileDlg(&pAddFileDlg));
    CheckError(pAddFileDlg->put_Object(pObject));
    VARIANT_BOOL bResult;
    CheckError(pAddFileDlg->Show(&bResult));
}