Hide duplicate search results

This commit is contained in:
Michael J. Seiferling
2016-03-23 17:13:15 -06:00
parent 31b72488b2
commit 83df2edc90
+3
View File
@@ -64,8 +64,11 @@ Public Class frmFileFolderSearch
Dim d As New UpdateInfoCallBack(AddressOf UpdateResults) Dim d As New UpdateInfoCallBack(AddressOf UpdateResults)
Me.Invoke(d, New Object() {sItem}) Me.Invoke(d, New Object() {sItem})
Else Else
'It's possible the same location will be searched twice when using Linux. Filter out duplicate results
If Not lstResults.Items.Contains(sItem) Then
lstResults.Items.Add(sItem) lstResults.Items.Add(sItem)
End If End If
End If
End Sub End Sub
Private Function SearchDirectory(ByVal dir As DirectoryInfo, ByVal sDirectoryName As String) As String Private Function SearchDirectory(ByVal dir As DirectoryInfo, ByVal sDirectoryName As String) As String