Example: Querying for checked-out files

' Connect to the top-level Rational ClearCase application object
Dim CC As New ClearCase.Application

' Create a query object for getting checked-out files
Dim COQuery As CCCheckedOutFileQuery
Set COQuery = CC.CreateCheckedOutFileQuery

' Set up the array of paths to use
COQuery.PathArray = Array("m:\carol_main\caroltest", _
     "m:\carol_main\stage", "m:\carol_main\policy")

' Restrict the collection to files checked out by user "bill"
COQuery.User = "bill"

' Include in the collection all files checked out in the VOBs
' specified in the path array
COQuery.PathSelects = ccSelection_AllInVOB

' Apply the query, getting a CCCheckedOutFiles collection
Dim CheckedOutFiles As CCCheckedOutFiles
Set CheckedOutFiles = COQuery.Apply

Dim strMsg As String
Dim strView As String
strMsg = CheckedOutFiles.Count & " files are checked out: "

' Gather info about the checked-out files for display
Dim I As Long
For I = 1 To CheckedOutFiles.Count
     Dim COFile As CCCheckedOutFile
     Set COFile = CheckedOutFiles(I)
     On Error Resume Next

     ' Get the view to which the file is checked out
     strView = COFile.ByView
     If Err.Number <> 0 Then
          strView = "<could not get view>"
     End If

     ' Get the branch on which the file is checked out
     strMsg = strMsg & vbCrLf & COFile.Path & _
          " branch " & COFile.Branch & " to view " & strView
Next

' Display the result
MsgBox strMsg

Feedback