ByRefは参照渡しか | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
Sub hoge(ByRef a)
    set a=CreateObject("Scripting.Dictionary")
    a.Add "a","changed"
End Sub
Dim x
set x=CreateObject("Scripting.Dictionary")
x.Add "a","not change"
hoge x
WScript.Echo x("a")
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX