Hi,

I'm creating an Add-in to copy variable when check out files. I don't know where I'm Doing mistake. Its getting an error.

Could you please check and let me know what is the issue?

<p>Imports EdmLib</p><p></p><p></p><p>Public Class Class1</p><p></p><p></p><p>    Implements IEdmAddIn5</p><p></p><p></p><p>    Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo</p><p></p><p></p><p>        poInfo.mbsAddInName = "Update old Revision"</p><p>        poInfo.mbsCompany = "test"</p><p>        poInfo.mbsDescription = "Update old Revision"</p><p></p><p></p><p>        poInfo.mlAddInVersion = 1</p><p>        poInfo.mlRequiredVersionMajor = 10</p><p>        poInfo.mlRequiredVersionMinor = 0</p><p></p><p></p><p>        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostLock)</p><p></p><p></p><p></p><p></p><p>    End Sub</p><p></p><p></p><p>    Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd</p><p></p><p></p><p>        Dim AffectedFile As EdmCmdData</p><p></p><p></p><p>        Select Case poCmd.meCmdType</p><p></p><p></p><p>            Case EdmCmdType.EdmCmd_PostLock</p><p></p><p></p><p>                Dim myVault As IEdmVault12 = CType(poCmd.mpoVault, IEdmVault12)</p><p>                Dim Inc_RevA As Integer</p><p>                Dim Cur_RevA As Integer</p><p></p><p></p><p>                For Each AffectedFile In ppoData</p><p></p><p></p><p>                    Dim myfile As IEdmFile5 = myVault.GetFileFromPath(AffectedFile.mbsStrData1)</p><p>                    Dim myvars As IEdmEnumeratorVariable10 = Nothing</p><p>                    myvars = CType(myfile.GetEnumeratorVariable(), IEdmEnumeratorVariable10)</p><p>                    myvars.GetVar("A", "@", Cur_RevA)</p><p>                    MsgBox(Cur_RevA)</p><p>                    myvars.SetVar("B", "@", Inc_RevA)</p><p>                    myvars.CloseFile(True)</p><p></p><p></p><p>                Next</p><p></p><p></p><p>        End Select</p><p></p><p></p><p>    End Sub</p><p>End Class</p>

Thanks