GetVersionInfo

Private Declare Function GetFileVersionInfo _
Lib "Version.dll" Alias "GetFileVersionInfoA" ( _
ByVal lptstrFilename As String, _
ByVal dwhandle As Long, _
ByVal dwlen As Long, _
lpData As Any) As Long

Private Declare Function GetFileVersionInfoSize _
Lib "Version.dll" Alias "GetFileVersionInfoSizeA" ( _
ByVal lptstrFilename As String, _
lpdwHandle As Long) As Long


'

' Calling example ..

'


nSize = GetFileVersionInfoSize(sPath, 0&)

ReDim sBuffer(nSize)
GetFileVersionInfo sPath, 0&, nSize, sBuffer(0))