' 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