识别IMacros版本

时间:2017-08-28 15:06:21

标签: excel-vba imacros vba excel

我想添加一个小的Excel vba脚本来识别用户是否拥有iMacros版本11.在过去,我们使用下面的脚本来确定用户是否使用版本6或7(我将其从一个古老的宏)。我试图修改它以检查版本11.但是,V11exe总是假的,如果用户有版本11,我需要它是真的。目前,我们的用户有版本10.3或11.宏适用于11但不是10.3所以我想将它添加到宏的开头,如果v11exe为false,它将停止并显示一个弹出窗口,你必须有版本11才能使用这个宏。有什么建议?谢谢你的帮助........

Sub iMacVersion()

v6Path = False
v6exe = False
v7Path = False
v7exe = False
v11Path = False
v11exe = False

Set ObjScr = CreateObject("Scripting.FileSystemObject")

v6Path = ObjScr.FolderExists("C:\Program Files\iMacros")
v7Path = ObjScr.FolderExists("C:\Program Files\iOpus\iMacros")
v11Path = ObjScr.FolderExists("C:\Program Files\Ipswitch\iMacros")
If v6Path = True Then v6exe = ObjScr.FileExists("C:\Program Files\iMacros\iMacros.exe")
If v7Path = True Then v7exe = ObjScr.FileExists("C:\Program Files\iOpus\iMacros\iMacros.exe")
If v11Path = True Then v11exe = ObjScr.FileExists("C:\Program Files\Ipswitch\iMacros\iMacros.exe")

Set ObjScr = Nothing

End Sub

0 个答案:

没有答案