Hi Nidhi,

Try this

Dim arrMyVar(0)

call fnsavearr(arrMyVar)

Public Function fnsavearr(Byref  oparrMyArray)

ArryUbound = Unbound(oparrMyArray)

Preserve Redim oparrMyArray(ArryUbound +1)

oparrMyArray(ArryUbound +1) = <ur value>

'U can make a loop of before 3 steps if u want to save multiple values
End Function

1. 'Preserve Redim' will increase the arrary size without reset the
previous values.

Thanks
Priya

-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

Reply via email to