BOOL CUserContentsDlg::OnInitDialog()
{
    CDialog::OnInitDialog();

    SetIcon(m_hIcon, TRUE);
    SetIcon(m_hIcon, FALSE);
    
    m_vDir1 = m_Dir1.GetControlUnknown();

    m_vDir1->ColumnCount = 2;
    m_vDir1->ShowFiles = VARIANT_FALSE;
    m_vDir1->GridStyle = gridSftDirectoryBoth;
    m_vDir1->Headers->Style = headersSftDirectoryButton;
    m_vDir1->ColumnEntry[0]->HeaderText = _T("Folder");
    m_vDir1->ColumnEntry[1]->HeaderText = _T("Full Path");
    m_vDir1->ColumnEntry[1]->Contents = contentsSftDirectoryUser1;
    m_vDir1->Reload(VARIANT_FALSE, VARIANT_FALSE);

    return TRUE;  // return TRUE  unless you set the focus to a control
}

void CUserContentsDlg::OnUserContentsSftDirectory1(LPDISPATCH Folder, long Contents, BSTR FAR* UserString) 
{
    ISftDirectoryFolderPtr pFolder = Folder;

    if (Contents == contentsSftDirectoryUser1) {
        *UserString = SysAllocString(pFolder->Path);
    }
}