Looping through Object

[PeterBunde]

Fellow sufferers

I am doing something´like this:

inhabitants_in.Add "Norway", CreateObject("Scripting.Dictionary")

inhabitants_in("Norway").Add "Oslo", 200000

How can I best, later, do something like, to find all the countries in the root:

For each country in inhabitants_in

MsgBox("Country: " & country)

Next country

BW Peter Bunde Hansen

 

[Norie]

What is inhabitants_in?

A collection? A class you've created/defined yourself? A dictionary?

 

[PeterBunde]

Dim inhabitants_in As Object

 

[Norie]

Peter

That doesn't really tell us much about what type of object you are dealing with.

How are you creating an instance of the object?

What properties/methods does it have?

If I use your declaration inhabitants_in has no properties and no discernible methods.

 

[PeterBunde]

Hi Norie

Please see my original entry. You have all the code I have.

BW Peter

 

[Norie]

This is all the code you have?

Dim inhabitants_in As Object

    inhabitants_in.Add "Norway", CreateObject("Scripting.Dictionary")

    inhabitants_in("Norway").Add "Oslo", 200000

If that's so then the code will immediately error on this line.

    inhabitants_in.Add "Norway", CreateObject("Scripting.Dictionary")

 

[PeterBunde]

For Each x In inhabitants_in
MsgBox CStr(x)
Next x