了解此比较函数(VBScript)
我正在寻找一个VBScript解决方案来比较两个文件版本,并找到以下代码:了解此比较函数(VBScript),vbscript,compare,fileversioninfo,Vbscript,Compare,Fileversioninfo,我正在寻找一个VBScript解决方案来比较两个文件版本,并找到以下代码: ' ***************************************************************** ' CompareFileVersion() ' Author: Vincil.Bishop@dhs.state.tx.us ' Date: 6/30/03 ' ' This function compares the version numbers of two files and r
' *****************************************************************
' CompareFileVersion()
' Author: Vincil.Bishop@dhs.state.tx.us
' Date: 6/30/03
'
' This function compares the version numbers of two files and returns the following results:
' -1 = File Version 2 is greater than File Version 1
' 0 = Versions are the same
' 1 = File version 1 is greater than File Version 2
' ****************************************************************************************************
Public Function CompareFileVersion(strFileName1 As String, strFileName2 As String) As Integer
' Our result
' -1 = File Version 2 is greater than File Version 1
' 0 = Versions are the same
' 1 = File version 1 is greater than File Version 2
Dim intResult
Dim strFileVersion1
Dim strFileVersion2
Dim strAryFileVersion1() As String
Dim strAryFileVersion2() As String
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
' Let's initialize our result with 0
intResult = 0
strFileVersion1 = fs.getfileversion(strFileName1)
strFileVersion2 = fs.getfileversion(strFileName2)
'Split the two supplied file versions by the "." character
strAryFileVersion1() = Split(strFileVersion1, ".")
strAryFileVersion2() = Split(strFileVersion2, ".")
For i = 0 To UBound(strAryFileVersion1())
If strAryFileVersion1(i) > strAryFileVersion2(i) Then
intResult = 1
ElseIf strAryFileVersion1(i) < strAryFileVersion2(i) Then
intResult = -1
End If
'If we have found that the result is not > or <, no need to proceed
If intResult <> 0 Then Exit For
Next
If UBound(strAryFileVersion2) > UBound(strAryFileVersion1) _
And strAryFileVersion2(UBound(strAryFileVersion2)) <> 0 Then intResult = -1
CompareFileVersion = intResult
End Function
file1 = "C:\somewhere\file1.exe"
file2 = "C:\somewhere\file2.exe"
MsgBox(CompareFileVersion(file1, file2))
我认为做以下操作就足够了,但我给了我一个错误:
result = CompareFileVersion(ver1, ver2)
MsgBox(result)
我显然做错了什么。谁能帮我理解这一点?首先,函数应该声明为: 公共函数比较杠杆(strFileName1、strFileName2) 至于
ver1 = "%userprofile%\Desktop\ver1.exe"
ver2 = "%userprofile%\Desktop\ver2.exe"
用户配置文件是使用WScript.Shell获得的:
Set oShell = CreateObject("WScript.Shell")
strUser = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
ver1 = strUser+"\Desktop\ver1.exe"
另外,删除所有类型声明,如
作为字符串
。VBScript只有一种称为变量的数据类型。首先,函数应声明为: 公共函数比较杠杆(strFileName1、strFileName2) 至于
ver1 = "%userprofile%\Desktop\ver1.exe"
ver2 = "%userprofile%\Desktop\ver2.exe"
用户配置文件是使用WScript.Shell获得的:
Set oShell = CreateObject("WScript.Shell")
strUser = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
ver1 = strUser+"\Desktop\ver1.exe"
另外,删除所有类型声明,如
作为字符串
。VBScript只有一种称为变量的数据类型函数已更正,现在可用于VBScript(感谢Mihai Adrian): 这将返回:
- 0如果文件的版本相同
- 1如果文件1的版本大于(更新)文件2
- -1如果文件2的版本大于(更新)文件1
- 0如果文件的版本相同
- 1如果文件1的版本大于(更新)文件2
- -1如果文件2的版本大于(更新)文件1
strFileName1
之后的公共功能行上会出现一个)
您收到的错误是什么?在strFileName1
之后的公共功能行上会出现一个)
谢谢您的快速响应,您是对的。我删除了数组中的类型声明和一些其他错误。现在一切都很好。谢谢你的快速回复,你是对的。我删除了数组中的类型声明和一些其他错误。现在一切正常。