This property commits any changes to the schedule.
Syntax
ReplicationSchedule.Commit
Remarks
You must commit any changes to a schedule before they take effect.
Example
The following example creates a new schedule for project MyProject to replicate on Friday at 11:00 P.M.
Option Explicit
On Error Resume Next
const OPEN_EXISTING_PROJECT = 2
const CRS_SCHEDULE_DAY_FRIDAY = 16
const CRS_SCHEDULE_REPLICATE = 2
dim ReplServer
set ReplServer = CreateObject("CrsApi.ReplicationServer")
ReplServer.Initialize("")
dim ReplProject
set ReplProject = ReplServer.OpenProject("MyProject", _
OPEN_EXISTING_PROJECT)
dim RepSched
set RepSched = ReplProject.AddSchedule
RepSched.Description = "The Friday night schedule."
RepSched.Days = CRS_SCHEDULE_DAY_FRIDAY
RepSched.Hour = 23
RepSched.ScheduledAction = CRS_SCHEDULE_REPLICATE
RepSched.Commit
'Release objects
set Sched = Nothing
set ReplProject = Nothing
set ReplServer = Nothing
See Also
ReplicationProject.AddSchedule, ReplicationProject.EnumSchedules