Search code examples
collectionsvbscript

How to create collection object in VBScript?

What should be the parameter for CreateObject?

See this example:

Dim a
Set a = CreateObject("Collection") 'getting a runtime error saying ActiveX 
' component can't create object: 'Collection
a.add(CreateObject("Collection"))
a.Items(0).Add(1)
MsgBox(a.Items(0).count)
MsgBox(a.Items(0).Item(0))
Solution

  • how about a Dictionary

    Set coll = CreateObject("Scripting.Dictionary")
coll.Add 0, "5"
coll.Add 4, "10"
coll.Add "textkey", "15"
MsgBox coll.Count
MsgBox coll.Item(0)
MsgBox coll.Item(4)
wholeColl = ""
for each key in coll.Keys
  wholeColl = wholeColl & key & " = " & coll.Item(key) & ", "
next
MsgBox wholeColl