objShell est un objet OLE dynamiques
objFolder est un objet OLE dynamiques
objFolderItem est un objet OLE dynamiques
strFileName est une chaîne
strHeader est une chaîne
strValue est une chaîne
objShell = allouer un objet Automation "Shell.Application"
objFolder = objShell>>NameSpace("C:\")
objFolderItem = objFolder>>ParseName("Nouveau Document texte.txt")
POUR i = 1 A 41
   strHeader = objFolder>>GetDetailsOf(objFolder>>Items, i)
   strValue = objFolder>>GetDetailsOf(objFolderItem, i)
   SI strValue <> "" ALORS
      Trace(strHeader + TAB + strValue)
   FIN
FIN

// SummaryPropPage.cpp : Defines the entry point for the application.
//
#include "stdafx.h"
#include <stdio.h>
#include <windows.h>
#include <ole2.h>

//Implicitly link ole32.dll
#pragma comment( lib, "ole32.lib" )

const FMTID PropSetfmtid ={ /* F29F85E0-4FF9-1068-AB91-08002B27B3D9 */
0xf29f85e0,
0x4ff9,
0x1068,
{0xab, 0x91, 0x08, 0x00, 0x2b, 0x27, 0xb3, 0xd9 }
};

int APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,
int nCmdShow)
{
// TODO: Place code here.
IPropertySetStorage *pPropSetStg = NULL;
IPropertyStorage *pPropStg = NULL;
PROPSPEC propspec; 
PROPVARIANT propWrite; 
PROPVARIANT propRead;
HRESULT hr = S_OK;

// Open a file and a property set within it.
hr = StgOpenStorageEx( L"C:\\Document.txt",
STGM_DIRECT|STGM_SHARE_EXCLUSIVE|STGM_READWRITE,
STGFMT_ANY,
// STGFMT_STORAGE //Structured Storage property sets
// STGFMT_FILE //NTFS file system property sets
0,
NULL,
NULL,
IID_IPropertySetStorage,
reinterpret_cast<void**>(&pPropSetStg) );
DWORD Result = 0;
if( FAILED(hr) ) 
{
Result = GetLastError();
throw L"Failed StgOpenStorageEx";
}

/* 
hr = pPropSetStg->Open( PropSetfmtid, STGM_WRITE|STGM_SHARE_EXCLUSIVE,
&pPropStg );
*/
hr = pPropSetStg->Create( PropSetfmtid, NULL, PROPSETFLAG_DEFAULT,
STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE,
&pPropStg );

if( FAILED(hr) ) 
throw L"Failed IPropertySetStorage::Open";

//we can identify any property through its Name or its ID
// propspec.ulKind = PRSPEC_LPWSTR;
// propspec.lpwstr = L"Title";

propspec.ulKind = PRSPEC_PROPID;
propspec.propid = 0x00000002;

//specify the value of property
propWrite.vt = VT_LPWSTR;
propWrite.pwszVal = L"this value set through code";

hr = pPropStg->WriteMultiple( 1, &propspec, &propWrite, PID_FIRST_USABLE );

if( FAILED(hr) ) 
throw L"Failed IPropertyStorage::WriteMultiple";

pPropStg->Release(); 
pPropStg = NULL;

//again open the property set
hr = pPropSetStg->Open( PropSetfmtid, STGM_READ|STGM_SHARE_EXCLUSIVE,
&pPropStg );

if( FAILED(hr) ) 
throw L"Failed IPropertySetStorage::Open";

// Read the property back and validate it
hr = pPropStg->ReadMultiple( 1, &propspec, &propRead );
if( FAILED(hr) ) 
throw L"Failed IPropertyStorage::ReadMultiple";

char* str = new char [wcslen(propRead.pwszVal) + 1];
// the "%S" will implicitly convert UNICODE to ANSI.
wsprintfA ( str, "%S", propRead.pwszVal); 

//if you want to display
// MessageBox(NULL,str,"Reading Value",MB_OK);

if( hr == S_FALSE )
throw L"Property didn't exist after reopening the property set"; 
else if( propWrite.vt != propRead.vt )
throw L"Property types didn't match after reopening the property set";
else if( wcscmp( propWrite.pwszVal, propRead.pwszVal ) != 0 )
throw L"Property values didn't match after reopening the property set";
else
wprintf( L"Success\n" );

return 0;
}

oDSO est un objet OLE dynamique
//odso = allouer un objet "DSOFile.OleDocumentProperties"
oDSO = allouer un objet "DSOFile.OleDocumentPropertiesClass"
//odso = allouer un objet "DSOFile.SummaryProperties"
//odso = allouer un objet "DSOFile.CDsoDocumentProperties"
//odso = allouer un objet "DSOleFile.PropertyReader"
//odso = allouer un objet "DSOleFile._OleDocumentProperties"
oDSO>>Open("c:\toto.txt")
Trace(oDSO>>SummaryProperties>>Author, oDSO>>SummaryProperties>>Comments)
oDSO>>Close

ch_doc est une chaîne = "c:\Nouveau Document Microsoft Word.doc"
AppelDLL32("Interop.Dsofile.dll","Open",&ch_doc)

maDLL est une chaîne = "dsofile.dll"
ch_doc est une chaîne = "c:\Nouveau Document Microsoft Word.doc"
hr est un entier = 0
hr = AppelDLL32(maDLL,65537,&ch_doc)//CDsoDocumentProperties,_OleDocumentProperties,SummaryProperties
Trace("hr : " + hr)
Trace(AppelDLL32(maDLL,65539))//IsReadOnly
Trace(AppelDLL32(maDLL,65540))//IsDirty