Hi Martin
The following will let you know what the current revision of a data pluggin is.
The second function will update the data plugin if it requires it.
Enjoy!
Paul
' Gets the version of a dataplugin
function GetDatapluginVersion(strDatapluginName)
Dim oMyDataPlugin
Set oMyDataPlugin = Navigator.Settings.RegisteredDataPlugins(strDatapluginName)
GetDatapluginVersion = oMyDataPlugin.Version
'Call MsgBoxDisp(oMyDataPlugin.Version)
end function
sub CheckUpdateAOP5
dim strAOP5CurrentVersion,strAOP5LatestVersion
dim MyVar
dim path2AOP5: Path2AOP5 = "Yours to fill in"
strAOP5CurrentVersion =GetDatapluginVersion("AOP5")
strAOP5LatestVersion = "11.0.1f5081"
if strAOP5CurrentVersion = strAOP5LatestVersion then
'msgbox("AOP5 Latest version:"&strAOP5LatestVersion & " equals " &strAOP5CurrentVersion )
else
MyVar = MsgBox("AOP5 Dataplugin requires updating Update Now?", vbYesNo + vbQuestion, "DIAdem")
Select Case MyVar
Case vbYes
Call ExtProgram( Path2AOP5 )
End Select
end if
end sub
