VBScript to perform SortedList operation
kw.vbs
Set SortedList = CreateObject("System.Collections.SortedList")
SortedList.Add "Apple", 4
SortedList.Add "Banana", 2
SortedList.Add "Cherry", 3
SortedList.Add "Durian", 5

print "Count " & SortedList.Count
print "Key " & SortedList("Durian")
print "Value at Index " & CStr(SortedList.GetByIndex(0))
print "Index of Key " & SortedList.IndexOfKey("Durian")
SortedList.Remove "Durian"
SortedList.RemoveAt 0 

For i = 0 To SortedList.Count - 1
    print vbCrLf & SortedList.GetKey(i) & vbTab & SortedList.GetByIndex(i)
Next
Output
Count 4
Key 5
Value at Index 4
Index of Key 3

Banana	2

Cherry	3
Comments and Reactions
What Next?
VBScript to perform Stack operations VBScript to perform Queue operations VBScript to create an empty folder
Advertisement