' Display information about the versions and activities that changed between ' two baselines and the versions that have changed in a particular activity ' in the two baselines Dim CC As New ClearCase.Application ' Get the project VOB with tag \projects Dim PVOB As CCProjectVOB Set PVOB = CC.ProjectVOB("\projects") ' Get particular baselines in the project VOB Dim Baseline1 As CCBaseline Dim Baseline2 As CCBaseline Set Baseline1 = PVOB.Baseline("V1.0.BL2.0004.test@\projects") Set Baseline2 = PVOB.Baseline("V1.0.BL2.0005.test@\projects") ' Set a view context for the version comparison ChDir "W:\automation" ' Create a Baseline comparison object and assign the two baselines to compare Dim BaselineComp As CCBaselineComparison Set BaselineComp = CC.CreateBaselineComparison BaselineComp.BaselineOne = Baseline1 BaselineComp.BaselineTwo = Baseline2 ' Perform the baseline comparison Dim Str As String On Error Resume Next BaselineComp.Compare If Err.Number <> 0 Then MsgBox "Error in baseline comparison: " & Err.Description Else Dim Versions As CCVersions Dim Version As CCVersion Set Versions = BaselineComp.VersionsInTwoButNotOne Str = "" For Each Version In Versions Str = Str & Version.Identifier & vbCrLf Next If Str = "" Then MsgBox "There are no versions in " & Baseline2.Title & _ "and not in " & Baseline1.Title Else MgBox "The versions in " & Baseline2.Title & " and not " & _ Baseline1.Title & " are: " & vbCrLf & Str End If Set Versions = BaselineComp.VersionsInOneButNotTwo Str = "" For Each Version In Versions Str = Str & Version.Identifier & vbCrLf Next If Str = "" Then MsgBox "There are no versions in " & Baseline1.Title & _ "and not in " & Baseline2.Title Else MsgBox "The versions in " & Baseline1.Title & " and not " & _ Baseline2.Title & " are: " & vbCrLf & Str End If ' Display the changed activities between the baselines Dim Activity As CCActivity Dim Activities As CCActivities Set Activities = BaselineComp.ChangedActivities Str = "" For Each Activity In Activities Str = Str & Activity.Name & vbCrLf Next If Str = "" Then MsgBox "There are no changed activities between the baselines" Else MsgBox "Activities that changed between the baselines are:" & _ vbCrLf & Str End If End If