Tutorial by Examples

Dim oDic Set oDic = CreateObject("Scripting.Dictionary") oDic.Add "US", "United States of America" oDic.Add "UK", "United Kingdom"

If oDic.Exists("US") Then msgbox "The Key US Exist. The value is " + oDic("US") Else msgbox "Key Does not exist." End If

If oDic.Exists("UK") Then oDic.remove("UK") End If

set oDic = CreateObject("Scripting.Dictionary") oDic.add "USA", "United States of America" oDic.add "UK", "United Kingdom" oDic.add "CAN", "Canada" For Each obj in oDic.Items Msgbox obj Next Set oDic = Nothing *Out...

set oDic = CreateObject("Scripting.Dictionary") oDic.add "USA", "United States of America" oDic.add "UK", "United Kingdom" oDic.add "CAN", "Canada" For Each obj in oDic.keys Msgbox "Key: " & obj & &quo...

set oDic = CreateObject("Scripting.Dictionary") oDic.add "USA", "United States of America" oDic.add "UK", "United Kingdom" oDic.add "CAN", "Canada" ' Delete only if Key exists If oDic.Exists("UK") Then oDic.R...