FileProperty.bas

Attribute VB_Name = "FileProperty"

Public VT_NULL As Integer
Public VT_I2 As Integer
Public VT_I4 As Integer
Public VT_NUMBER As Integer
Public VT_BOOL As Integer
Public VT_VARIANT As Integer
Public VT_LPSTR As Integer
Public VT_FILETIME As Integer
Public VT_BLOB As Integer

Sub Initialize()
    VT_NULL = 1
    VT_I2 = 2
    VT_I4 = 3
    VT_NUMBER = 5
    VT_BOOL = 11
    VT_VARIANT = 12
    VT_LPSTR = 30
    VT_FILETIME = 64
    VT_BLOB = 65 
End Sub