' ハイパーリンクのリンク先に何があるかを示すストリングを戻します。
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