Repository.Project.GetCurrentProject

Returns the name and ID of the current project.

Syntax

• GetCurrentProject()AsNameIdPair

Usage Example

In this usage example, a project is opened from a Synthesis repository, and the ID of the project is retrieved.

 'Declare a new repository connection object. See Repository. 
 Dim MyRepository As New Repository
 
 'Connect to a Synthesis repository. 
 Dim Success As Boolean = False
 Success = MyRepository.ConnectToRepository("C:\Users\Name\Documents\ReliaSoft\Files\repository.rsr9")
 
 'Get a list of the names/IDs of projects in the connected repository. 
 Dim ListOfProjects() As NameIdPair
 ListOfProjects = MyRepository.GetAllProjects()
 
 'Open the first project in the list. 
 MyRepository.SetCurrentProject(ListOfProjects(0).ID)
 
 'Get the ID of the opened project. 
 Dim ID As Integer
 ID = MyRepository.GetCurrentProject()
 
 'Disconnect from the repository. 
 MyRepository.DisconnectFromRepository()