VB and VBA Users Source Code: Get File Version Information Details (OCX, EXE, DLL etc)
[
Home
|
Contents
|
Search
|
Reply
| Previous |
Next
]
VB/VBA Source Code
Get File Version Information Details (OCX, EXE, DLL etc)
By:
Andrew Baker
Email (spam proof):
Email the originator of this post
Date:
Monday, October 09, 2000
Hits:
1144
Category:
Windows API
Article:
During an installation or when upgrading a file set, it is often useful to check the version details of the files on the client machine. The following routine determines the version number of a file (an example routine can be found at the bottom of this post). '--------------GET VERSION INFO API----------------------- Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length 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 Function GetFileVersionInfoSize Lib "Version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long 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 Type VS_FIXEDFILEINFO Signature As Long StrucVersionl As Integer ' e.g. = &h0000 = 0 StrucVersionh As Integer ' e.g. = &h0042 = .42 FileVersionMSl As Integer ' e.g. = &h0003 = 3 FileVersionMSh As Integer ' e.g. = &h0075 = .75 FileVersionLSl As Integer ' e.g. = &h0000 = 0 FileVersionLSh As Integer ' e.g. = &h0031 = .31 ProductVersionMSl As Integer ' e.g. = &h0003 = 3 ProductVersionMSh As Integer ' e.g. = &h0010 = .1 ProductVersionLSl As Integer ' e.g. = &h0000 = 0 ProductVersionLSh As Integer ' e.g. = &h0031 = .31 FileFlagsMask As Long ' = &h3F for version "0.42" FileFlags As Long ' e.g. VFF_DEBUG Or VFF_PRERELEASE FileOS As Long ' e.g. VOS_DOS_WINDOWS16 FileType As Long ' e.g. VFT_DRIVER FileSubtype As Long ' e.g. VFT2_DRV_KEYBOARD FileDateMS As Long ' e.g. 0 FileDateLS As Long ' e.g. 0 End Type 'Purpose : To obtain the file version info of a DLL, OCX, EXE etc. 'Inputs : sFileName The path and name of the file to return the version info 'Outputs : Returns the file version number of the specified file 'Author : Andrew Baker 'Date : 09/10/2000 23:39 'Notes : 'Revisions : Function FileVersionNo(sFileName As String) As String Dim lFileHwnd As Long, lRet As Long, lBufferLen As Long, lplpBuffer As Long, lpuLen As Long Dim abytBuffer() As Byte Dim tVerInfo As VS_FIXEDFILEINFO Dim sBlock As String, sStrucVer As String 'Get the size File version info structure lBufferLen = GetFileVersionInfoSize(sFileName, lFileHwnd) If lBufferLen = 0 Then Exit Function End If 'Create byte array buffer, then copy memory into structure ReDim abytBuffer(lBufferLen) Call GetFileVersionInfo(sFileName, 0&, lBufferLen, abytBuffer(0)) Call VerQueryValue(abytBuffer(0), "\", lplpBuffer, lpuLen) Call CopyMem(tVerInfo, ByVal lplpBuffer, Len(tVerInfo)) 'Determine structure version number (For info only) sStrucVer = Format$(tVerInfo.StrucVersionh) & "." & Format$(tVerInfo.StrucVersionl) 'Concatenate file version number details into a result string FileVersionNo = Format$(tVerInfo.FileVersionMSh) & "." & Format$(tVerInfo.FileVersionMSl, "00") & "." If tVerInfo.FileVersionLSh > 0 Then FileVersionNo = FileVersionNo & Format$(tVerInfo.FileVersionLSh, "0000") & "." & Format$(tVerInfo.FileVersionLSl, "00") Else FileVersionNo = FileVersionNo & Format$(tVerInfo.FileVersionLSl, "0000") End If End Function 'Eg. Get Version Details of C:\Windows\System\Comctl32.ocx Sub Example() Debug.Print FileVersionNo("C:\Windows\System\comctl32.ocx") End Sub
Terms and Conditions
Support this site
Download a trial version of the Excel Workbook Rebuilder
