Executes the Checkout process on the Version list currently selected using the Version Chooser.
object.Execute()
CaWCheckout
None
A long - Zero if success, Nonzero if failure.
Example
Dim objCheckout
Dim objVersionChooser
' Set checkout parameters
Set objCheckout = objContext.GetCheckout()
objCheckout.SetCheckoutMode(5)
objCheckout.SetPathOption(1)
objCheckout.SetReplaceFile(True)
objCheckout.SetShareWorkDir(False)
objCheckout.SetUseCITimeStamp(False)
objCheckout.SetClientDir("C:\temp")
objCheckout.SetViewPath("\CHSDKRep")
' Select versions to check out
Set objVersionChooser = objContext.GetVersionChooser()
objVersionChooser.ItemName = "File1.vbs"
objVersionChooser.Recursive = True
objVersionChooser.BranchOption = 1
objVersionChooser.ParentPath = "\CHSDKRep"
objVersionChooser.VersionItemOption = 1
objVersionChooser.VersionOption = 256
objVersionChooser.VersionStatusOption = 1
objVersionChooser.Execute()
' Check out
lngRet = objCheckout.Execute()
More information:
| Copyright © 2013 CA. All rights reserved. |
|