vbstatstg.cls

结构化存储文件我们平时大量接触的Word,Excel文件实际上都是结构化存储文件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "VBSTATSTG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'*********************************************************************************************
'
' VBSTATSTG
'
' STATSTG struct wrapper class
'
'*********************************************************************************************
'
' Author: Eduardo Morcillo
' E-Mail: [e-mail]
' Web Page: http://www.domaildlx.com/e_morcillo
'
' Created: 08/03/1999
'
'*********************************************************************************************

Option Explicit

Dim m_Stat As STATSTG

Public Property Get Name() As String

    Name = Ptr2Str(m_Stat.pwcsName, False, True)
    
End Property

Public Property Get CLSID() As String

    CLSID = Space$(39)
    StringFromGUID2 m_Stat.CLSID, CLSID, Len(CLSID)
    CLSID = Left$(CLSID, 38)
    
End Property

Public Property Get StorageType() As STGTY

    StorageType = m_Stat.Type
    
End Property



Friend Sub SetData(SSTG As STATSTG)

    m_Stat = SSTG
    
End Sub

Private Sub Class_Terminate()
    
    ' Free memory used by the struct
    CoTaskMemFree m_Stat.pwcsName
    
End Sub