Modify scripts with another script
I am working on a script to modify a batch of scripts in a folder, I have a script action as follows:
'Create Sub Call
Option Explicit
Dim objApp, objStep, objMacro
' create VisBuildPro app object
Set objApp = CreateObject("VisBuildSvr7.Application")
objApp.Project.Load "%PROCFILES_FULLPATH%"
Set objStep = objApp.Project.Steps(vbldStepMain).Add("Subroutine Call", 6)
objStep.Name = "Get Version History List"
objStep.Indent = 2
objStep.Property("SubName") = "SUB Get Version History List"
objStep.Property("Expand") = -1
objApp.Project.Save
When I run the script it modify's creates the following in a script file:
<step action='Subroutine Call'>
<Expand type='2'>-1</Expand>
<SubName>SUB Get Version History List</SubName>
<indent type='3'>2</indent>
<name>Get Version History List</name>
</step>
If I create the same step manually it looks like this:
<step action='Subroutine Call'>
<Expand type='11'>-1</Expand>
<SubName>SUB Get Version History List</SubName>
<indent type='3'>2</indent>
<name>Get Version History List</name>
</step>
The main difference between the two is teh type value of the Expand in one its 11 and when I create it through script its a value of 2
My question is what does the value of type represent and how do I change it? Also what is the type value in indent property represent?
|