C / C++ / MFC

Dim xmlDoc As New Msxml2.DOMDocument
Dim root As IXMLDOMElement
Dim objDOMatt As IXMLDOMAttribute
xmlDoc.async = False
xmlDoc.Load ("books.xml")
Set root = xmlDoc.documentElement
Set objDOMatt = root.firstChild.Attributes.Item(0)
MsgBox (objDOMatt.Value)
MsgBox (objDOMatt.xml)

#import "msxml3.dll"
using namespace MSXML2;

#define CHECK_AND_RELEASE(pInterface)  \
if(pInterface) \
{\
pInterface->Release();\
pInterface = NULL;\
}\

#define RELEASE(pInterface)  \
{\
pInterface->Release();\
pInterface = NULL;\
}\

_variant_t varValue;
BSTR bstrAttributeName = ::SysAllocString(_T("dateCreated"));
IXMLDOMElement *pIXMLDOMElement = NULL;
IXMLDOMDocument *pIXMLDOMDocument = NULL;
HRESULT hr;

try
{
   // Initialize pIXMLDOMDocument and load an
   // XML file into it.
   // Get the document root.
   hr = pIXMLDOMDocument->get_documentElement( &pIXMLDOMElement);
   SUCCEEDED(hr) ? 0 : throw hr;
   if(pIXMLDOMElement)
   {
      varValue = _T("year 2000");
      hr = pIXMLDOMElement->setAttribute(bstrAttributeName, varValue);
      SUCCEEDED(hr) ? 0 : throw hr;

      hr = pIXMLDOMElement->getAttribute(bstrAttributeName, &varValue);
      SUCCEEDED(hr) ? 0 : throw hr;

      if(varValue.vt != VT_NULL)
      {
         ::MessageBox(NULL, _bstr_t(varValue), bstrAttributeName, MB_OK);
         bResult = TRUE;
      }
      RELEASE(pIXMLDOMElement);
   }
   ::SysFreeString(bstrAttributeName);
   bstrAttributeName=NULL;
}
catch(...)
{
   if(bstrAttributeName)
   {
      ::SysFreeString(bstrAttributeName);
      bstrAttributeName = NULL;
   }
   CHECK_AND_RELEASE(pIXMLDOMElement);
   DisplayErrorToUser();
}

int id;