Function GetVer(FilePathName As String) As Integer
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim fver As String, verStr() As String
If Dir(FilePathName, vbNormal) = "" Then
MsgBox FilePathName & "???"
Exit Function
End If
GetVer = 0
fver = fso.GetFileVersion(FilePathName)
If fver <> "" Then
verStr = Split(fver, ".")
GetVer = Val(verStr(UBound(verStr)))
End If
End Function
[Quote=引用 1 楼 dbcontrols 的回复:]
VB code
Private Declare Function GetVersion Lib "kernel32" Alias "GetVersion" () As Long
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSION……
[/Quote]
这是VB里才有的吧?
我在VBS里试了,提示没有这个函数...
Private Declare Function GetVersion Lib "kernel32" Alias "GetVersion" () As Long
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long