devxlogo

Return File Version Info

Return File Version Info

To use the FileSystemObject, you need to reference the Microsoft Scripting Runtime:

 Public Function GetExecutableFileVersion(ByVal _	Filename As String) As String	Dim FileObj As Scripting.FileSystemObject	' Create Object	Set FileObj = New Scripting.FileSystemObject  	If FileObj.FileExists(Filename) Then		GetExecutableFileVersion = _			FileObj.GetFileVersion(Filename)	End If  	' Free Object	Set FileObj = NothingEnd Function

devx-admin

Share the Post: