The latest script doesn't work at all. A screenshot of my result is below.
My IDE script:
'add valentina files
'prepare
dim CountSlashes as Integer = CountFields(ProjectShellPath, "/")
dim ProjectName as string = NthField(ProjectShellPath, "/", CountSlashes)
dim ProjectPath as String = Left(ProjectShellPath, Len(ProjectShellPath) - Len(ProjectName))
dim ProjectParent as string = NthField(ProjectPath, "/", CountSlashes - 1)
dim ProjectParentPath as String = Left(ProjectPath, Len(ProjectPath) - Len(ProjectParent) - 1)
dim cmd as String = ProjectParentPath + "Classes/Build\ Automation/install_vcomponents_v4rb_v9 " + CurrentBuildLocation + "/" + getShellString(CurrentBuildAppName) + ".app/"
cmd = cmd + " 64"
dim theOutput as string = doShellCommand(cmd)
if theOutPut <> "" and instr(theOutput, "warning") = 0 then print "Add Valentina Files: " + theOutput
function getShellString(theString as String) as string
theString = ReplaceAll(theString, " ", "\ ")
theString = ReplaceAll(theString, "&", "\&")
theString = ReplaceAll(theString, "(", "( ")
theString = ReplaceAll(theString, ")", ") ")
return theString
end Function