I am making another update I am trying to create a Sub call using the following code:
Set objStep = objApp.Project.Steps(vbldStepMain).Add("Subroutine Call", iNewIndex + 1)
objStep.Name = "TEMP New Shares Add"
objStep.Indent = 2
objStep.Checked = True
objStep.Property("SubName") = "SUB TEMP New Shares Add"
objApp.Project.Save
This works but there are two line items that are not getting genereated, if I look at the source of the script the lines with the ----- do not appear, what do I need to add to the above code to create BuildFailstops and ExpandType
<step action='Subroutine Call'>
<Expand type='11'>-1</Expand> ----------------------
<SubName>SUB TEMP New Shares Add</SubName>
<buildfailsteps type='11'>0</buildfailsteps> ------------------------
<indent type='3'>2</indent>
<name>TEMP New Shares Add</name>
</step>
Thanks
|