Automation, cont.

On Error Resume Next

Dim ct as Object

Set ct = CreateObject("ClearCase.ClearTool")

MsgBox ct.CmdExec("pwv")

If Err.Number <> 0 Then

    MsgBox "CmdExec returned error " & Err.Description

    ' Re-raise

    Err.Raise Err.Number

End If

Previous slide

Next slide

Back to first slide

View graphic version