VB源码：获取外程序版本信息实用工具

Option Explicit
'=====================================================================================
'功能:获得外程序的版本号产品名称等信息
'用法:
'MsgBox GetFileVerInfo("C:\windows\notepad.exe")(0)        '版本号
'MsgBox GetFileVerInfo("C:\windows\notepad.exe")(1)        '产品名称
'MsgBox GetFileVerInfo("C:\windows\notepad.exe")(2)        '公司名称
'MsgBox GetFileVerInfo("C:\windows\notepad.exe")(3)        '版权信息
'MsgBox GetFileVerInfo("C:\windows\notepad.exe")(4)        '文件描述
'=====================================================================================
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
Private Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long
Private Declare Sub MoveMemory Lib "Kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal Length As Long)
Private Declare Function lstrcpy Lib "Kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function VerLanguageName Lib "Kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
Private Const Syn_kg = " "
Private Const Syn_pzh = "\"
Public Function GetFileVerInfo(FullFileName As String) As String()
    Dim rc     As Long, lDummy       As Long, sBuffer()       As Byte
    Dim lBufferLen     As Long, lVerPointer       As Long
    Dim bytebuffer(260)     As Byte
    Dim Lang_Charset_String     As String
    Dim HexNumber     As Long, Buffer       As String
    Dim I     As Integer, strtemp       As String
    Dim strFileVer(5)     As String
    For I = 0 To 5
        strFileVer(I) = ""
    Next
    lBufferLen = GetFileVersionInfoSize(FullFileName, lDummy)