Executes the Checkin process on the Version list currently selected using the Version Chooser.
object.Execute(blnFileList)
CaWCheckin
blnFileList - If True checks in a file list, if False gets the list from the version chooser.
A long - Zero if success, Nonzero if failure.
None
Example
Dim objCheckin
Dim objFileList
' Set check in parameters
Set objCheckin = objContext.GetCheckin()
objCheckin.SetFileList(objFileList)
objCheckin.SetCheckinMode(0)
objCheckin.SetPathOption(0)
objCheckin.SetItemOption(0)
objCheckin.SetDeleteAfterCI(False)
objCheckin.SetViewPath("\CHSDKRep")
objCheckin.SetClientDir("C:\temp")
' Select files to be checked in
Set objStringList = CreateObject("Chsdk.CaWStringList")
objStringList.InitHObject()
objStringList.Add("File1.vbs")
objStringList.Add("File2.vbs")
' Check in
lngRet = ObjCheckin.Execute(True)
More information:
| Copyright © 2013 CA. All rights reserved. |
|