Hi,
I understand what you are trying to do.
Hope this example might clear the behavior.
Set A = CreateObject('Scripting.dictionary")
Set B = A 'Now B & A are holding a reference of a dictionary object (As
you have copied to an Array)
Set B = Nothing 'B is destroyed.
Msgbox TypeName(A) ' It will show Dictionary
thats what happening in your code as well.
It means,
After Set B = A both A & B holds the reference for the same object. If
one is set to Nothing, It does not mean that other will be simply destroyed.
In your code, oXMLHTTP is simply copied to an Array. Only that is set to
Nothing.
oXMLHTTP is holding the reference for the object.
On Friday, January 11, 2013 6:57:20 AM UTC-6, arihan sinha wrote:
>
> Hi all,
>
> Just quick question. In a sub/function I've few parameters which I need
> to *set to Nothing* at the end of the function. I don't want to write
> like set myvar = Nothing for 10/20 times..
>
> I tried the below code but the constrain is vbscript doesn't support the
> param array . So the below code doesn't work. Any thoughts
>
> Dim oXMLHTTP
>
> Dim vConn
>
> oXMLHTTP = "abc"
>
> vConn = "xyz"
>
> SetToNothing (Array(oXMLHTTP,vConn))
>
> msgbox oXMLHTTP
>
> '''This Still showing the value of oXMLHTTP as "abc" which should not be
>
> Function SetToNothing( parameters())
> Dim i
> On Error Resume Next
> SetToNothing = True
> For i = LBound(parameters) To UBound(parameters)
>
> Set parameters(i) = Nothing
> If Err.Number <> 0 Then SetToNothing = False 'if not
> object/variant variable
> Next
> End Function
>
>
> Cheers
> A
>
>
>
>
--
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
