Abrir el Repositorio

Objeto público

''un  ejemplo de cómo abrir un repositorio de EA

''en VB.Net 

Public Class AutomationExample 

''variable de nivel de clase para el Repositorio

Public m_Repository As Object 

Public Sub Run() 

try  

  ''crea el objeto repositorio

  m_Repository = CreateObject("EA.Repository") 

  ''abre un archivo EAP

  m_Repository.OpenFile("F:\Test\EAAuto.EAP") 

  ''usa el Repositorio en cualquier forma que se requiera

  'DumpModel 

  ''cierra el repositorio y sale

  m_Repository.Exit() 

  m_Repository = Nothing 

catch e as exception 

  Console.WriteLine(e) 

End try 

End Sub 

end Class