' ハイパーリンクのリンク先に何があるかを示すストリングを戻します。 Private Function HyperlinkEnd(EndObject As Variant) As String Dim str As String Select Case TypeName(EndObject) Case "Nothing" HyperlinkEnd = "(No object)" Case "ICCAttributeType", "ICCBranchType", "ICCHyperlinkType", "ICCLabelType" HyperlinkEnd = " type: " & EndObject Case "ICCVOB" HyperlinkEnd = " VOB: " & EndObject Case "ICCHyperlink" HyperlinkEnd = " hyperlink:" & EndObject Case "ICCBranch" HyperlinkEnd = " branch: " & EndObject Case "ICCVersion", "ICCElement" HyperlinkEnd = " file system object: " & EndObject.Path Case Else HyperlinkEnd = "Hyperlink end has unknown type!" End Select End Function ' 最上位の ClearCase オブジェクトに接続します。 Dim CC As New ClearCase.Application ' バージョンに接続するハイパーリンクをすべて検出します。 Dim Ver As CCVersion Set Ver = CC.Version("testelem.c@@¥main¥8") Dim Hyperlink As CCHyperlink Dim strHyperlinks As String strHyperlinks = "Hyperlinks on version " & Ver.ExtendedPath & ":" & vbCrLf ' 各ハイパーリンクについて表示するための情報を集めます。 For Each Hyperlink in Ver.Hyperlinks strHyperlinks = strHyperlinks & Hyperlink.Type & ": " & _ HyperlinkEnd(Hyperlink.FromObject) & " (" & Hyperlink.FromText & _ ") -> " & HyperlinkEnd(Hyperlink.ToObject) & " (" & Hyperlink.ToText & ")" Next ' ハイパーリンク情報を表示します。 MsgBox strHyperlinks