' 最上位の Rational ClearCase オブジェクトに接続します。 Dim CC As New ClearCase.Application ' バージョンから祖先のバージョンにラベルを移動します。 Dim Ver As CCVersion Dim PredVer As CCVersion Dim Label As CCLabel Dim LabelType As CCLabelType ' 1 つのバージョンからラベルを取得し、ついでそのタイプを取得します。 ' (注: バージョンの VOB からもラベル タイプを取得できます) Set Ver = CC.Version("testelem.c@@¥main¥v4.0.bl5_main¥5") Set Label = Ver.Label("TempLabelType") Set LabelType = Label.Type ' 祖先のバージョンを取得してそれにラベルを適用します。置換に対して True を渡し、 ' ラベルを移動する意図があることを示します。 Set PredVer = Ver.Predecessor LabelType.Apply PredVer, "Reverting to predecessor version", True