IMetabaseDefinition.VcsName

Syntax

VcsName: String;

Description

The VcsName property determines a version control system type.

Comments

This property is relevant to use if the repository is added to version control system.

Example

Executing the example requires a repository connected to version control system and a local GIT repository on the C disc.

Add a link to the Metabase system assembly.

Sub UserProc;
Var
    Def: IMetabaseDefinition;
Begin
    
// Get repository
    Def := MetabaseClass.Active.Definition;
    
// Display type of the current VCS and a local repository folder    
    Debug.WriteLine("Current version control system: " + Def.VcsName);
    Debug.WriteLine(
"Current local folder: " + Def.VcsLocalPath);
    
// Set version control system and a local repository folder
    Def.VcsName := "Git";
    Def.VcsLocalPath := 
"C:\VS\git_repo";
    
// Save changes
    Def.Save;
End Sub UserProc;

After executing the example the console window displays the type of the current version control system and path to the local folder, GIT is set as a version control system and is set up to the specified path to the local GIT repository.

See also:

IMetabaseDefinition