枚举复合文件的存储结构     
Word和Excel等文件均称为复合文件。这类文件内部有一个“文件系统”，采用“磁盘文件”的组织方式来组织文件内的数据，也称为“文件中的文件系统”。

每个复合文件中有一个“根存储”（类似于文件系统中的“根目录”），根存储之下是若干“子存储”（类似于“子目录”）和“数据流”（类似于“文件”），子存储之下可以再有子存储和数据流……。

下列代码可将任一复合文件的文件结构进行枚举，如配合树型控件（如：CTreeCtrl），可将文件的存储结构清晰的展现出来。

#include <atlconv.h>

void DocFileViewer(LPCTSTR lpszPathName)
{
    // lpszPathName: 复合文件存储路径

    // COM 初始化
    // 如果是MFC程序，可以使用AfxOleInit()替代
    ::CoInitialize(NULL);

    USES_CONVERSION;

    LPCTSTR lpFileName = lpszPathName;
    HRESULT hr;
    IStorage * pStg = NULL;
   
    LPCOLESTR lpwFileName = T2COLE(lpFileName);    // 转换T类型为宽字符
    hr = ::StgIsStorageFile(lpwFileName);        // 是复合文件吗？
    if (FAILED(hr))
    {
        return FALSE;
    }
    hr = ::StgOpenStorage(        // 打开复合文件
        lpwFileName,        // 文件名称
        NULL,
        STGM_READWRITE | STGM_DIRECT | STGM_SHARE_EXCLUSIVE,
        0,
        0,
        &pStg);            // 得到根存储接口指针

    EnumStorage(pStg);        // 开始枚举

    if (pStg)
    {
        pStg->Release();
    }

    // COM 释放
    // 如果使用了AfxOleInit()，则无需调用该函数
    ::CoUninitialize();
}

void EnumStorage(IStorage *pStg)
{
    USES_CONVERSION;

    IEnumSTATSTG * pEnum = NULL;    // 枚举器
    HRESULT hr;

    hr = pStg->EnumElements(0, NULL, 0, &pEnum);
    ASSERT(SUCCEEDED(hr));

    STATSTG statstg;
    IStorage * pStgSub = NULL;    // 子存储接口指针

    while (pEnum->Next(1, &statstg, NULL) == NOERROR)
    {
        // statstg.type 保存着对象类型 STGTY_STREAM 或 STGTY_STORAGE
        // statstg.pwcsName 保存着对象名称
        // ...... 还有时间，长度等很多信息。请查看 MSDN

        switch (statstg.type)
        {
        case STGTY_STORAGE:    // 子存储

            // ...

            hr = pStg->OpenStorage(        // 打开子存储
                statstg.pwcsName,
                NULL,
                STGM_READWRITE | STGM_DIRECT | STGM_SHARE_EXCLUSIVE,
                NULL,
                0,
                &pStgSub);        // 得到子存储接口指针

            if (FAILED(hr))
            {
                return;
            }

            EnumStorage(pStgSub);        // 递归枚举子存储

            break;

        case STGTY_STREAM:    // 数据流

            // ...

            break;
        }

        ::CoTaskMemFree(statstg.pwcsName);    // 释放名称所使用的内存
    }
   
    if (pEnum)
    {
        pEnum->Release();
    }

    if (pStgSub)
    {
        pStgSub->Release();
    }
}