Check File Version

email me

‘On Error Resume Next

Option Explicit

Dim ReturnString, OfficePath, strValue, FSO

set FSO=CreateObject(“Scripting.FileSystemObject”)

OfficePath=”C:\Program Files (x86)\Microsoft Office\Office14\”
ReturnString=FSO.getfileversion(OfficePath & “winword.exe”)
strValue = Left(ReturnString,2)

msgbox strValue

‘Session.Property(“OFFVER”) = strValue
set fso=nothing