Seems like you have asked this in other forums.
First, get the help file script56.chm. It will show properties and methods and examples. Get it in the 3rd link in Reference section. http://www.robvanderwoude.com/wshlinks.php
Here is how I used it.
Code:'Early Binding method requires Reference: MicroSoft Scripting Runtime, scrrun.dll Function UniqueArrayByDict(Array1d As Variant, Optional compareMethod As Integer = 0) As Variant Dim dic As Object 'Late Binding method - Requires no Reference Set dic = CreateObject("Scripting.Dictionary") 'Late or Early Binding method 'Dim dic As Dictionary 'Early Binding method 'Set dic = New Dictionary 'Early Binding Method Dim e As Variant dic.CompareMode = compareMethod 'BinaryCompare=0 'TextCompare=1 'DatabaseCompare=2 For Each e In Array1d If Not dic.Exists(e) Then dic.Add e, Nothing Next e UniqueArrayByDict = dic.Keys End Function




Reply With Quote

Bookmarks