07 November 2017

Add Parameter to a Function without affecting othere scripts using the same Function

x = add(10,15,Array(10,15))
MsgBox x

Function add(a,b,c)

    IfIsArray(c) Then
        t = 0
        For i = 0Toubound(c)
            t = t + c(i)
        Next
        Else
        t = c
    EndIf
    r = a+b+t
    add = r


EndFunction



...

No comments:

Post a Comment

AOM - Automation Object Model

'Creating QuicTest Object Set  qtapp =  createobject ( "QuickTest.Application" ) 'Launching the Application If  qtapp...