Actions

[rajeshwar]

Hi,

I tried this using dictionary object.

Action 1
‘==========================

Code:

Dim ODictAction1
Set ODictAction1 = CreateObject("Scripting.Dictionary")

                Set ODictAction1 = Runaction("Action2", Oneiteration)

    a = ODictAction1.Items   ' Get the items.
   For i = 0 To ODictAction1.Count -1 ' Iterate the array.
      msgbox  s & a(i)
   Next

Action 2
‘===================

Code:

Dim ODictAction2

Set ODictAction2 = CreateObject("Scripting.Dictionary")

ODictAction2.Add "a", "Athens"   ' Add some keys and items.
ODictAction2.Add "b", "Belgrade"
ODictAction2.Add "c", "Cairo"

ExitAction (ODictAction2)