' Return a string representation of what's at an end of a hyperlink 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 ' Connect to the top-level ClearCase object Dim CC As New ClearCase.Application ' Find all the hyperlinks attached to a version 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 ' Gather information to display about each hyperlink For Each Hyperlink in Ver.Hyperlinks strHyperlinks = strHyperlinks & Hyperlink.Type & ": " & _ HyperlinkEnd(Hyperlink.FromObject) & " (" & Hyperlink.FromText & _ ") -> " & HyperlinkEnd(Hyperlink.ToObject) & " (" & Hyperlink.ToText & ")" Next ' Display the hyperlink information MsgBox strHyperlinks