QTP @ Dictionary Object >> RemoveAll Method
QTP @ Dictionary Object >> RemoveAll
0 '##############################################
0 ' Dictionary Object >> RemoveAll
0 '##############################################
0 Print "##############################################"
0 Print " Dictionary Object >> RemoveAll"
0 Print "##############################################"
0 'RemoveAll
0 'Dim a, d, i ' Create some variables.
0 Set oDict = CreateObject("Scripting.Dictionary")
0 oDict.Add "Subject", "QuickTestQTP" ' Add some keys and items.
0 oDict.Add "Teacher", "GAReddy"
0 oDict.Add "Learner1", "SomeBody"
0 oDict.Add "Learner2", "SomeBodyElse"
0 a = oDict.RemoveAll ' Clear the dictionary.
0
0 For each ditem in oDict
0 Print oDict.Item(ditem)
0 Next