' 最上位の Rational ClearCase オブジェクトに接続し、VOB を取得します。 Dim CC As New ClearCase.Application Dim VOB as CCVOB Set VOB = CC.VOB("¥caroltest") ' VOB に既存のブランチ タイプを取得します。 Dim BranchType as CCBranchType Set BranchType = VOB.BranchType("v3.2_main") ' バージョンにブランチ タイプを適用します。 Dim Ver as CCVersion Set Ver = CC.Version("¥caroltest¥testelem.c") BranchType.Apply Ver