Written by:R Teachout
11/22/2006 7:21 PM

Function SortDict(ByVal objDict)
 'Call using "Set objDictSorted = SortDict(objDict)"
 
 Dim i, j, temp
 
 For Each i In objDict
  For Each j In objDict
   If(objDict.Item(i) <= objDict.Item(j)) Then
    temp = objDict.Item(i)
    objDict.Item(i) = objDict.Item(j)
    objDict.Item(j) = temp
   End If
  Next
 Next

 'For Each i In objDict
 ' WScript.Echo objDict.Item(i)
 'Next

 Set SortDict = objDict

End Function

TrackbackPrint

Location: BlogsRamblings, Scriptlets, and more!

Your name:
Title:
Comment:
Security Code Enter the code shown above in the box below
Add Comment   Cancel