' 最上位の ClearCase オブジェクトに接続します。 Dim CC As New ClearCase.Application ' バージョンから発生しているブランチをループし、そのパス (ICCBranch ' のデフォルト プロパティを使用) およびその他の情報を表示します。 Dim Ver As CCVersion Set Ver = CC.Version("¥caroltest¥testelem.c@@¥main¥9") Dim strPath as String strPath = Ver.Path Dim Branch As CCBranch For Each Branch in Ver.SubBranches MsgBox Branch & " branch sprouting from " & strPath & " has " & _ Branch.Versions.Count & " version(s); latest version is " _ & Branch.LatestVersion.VersionNumber Next