Dim pKey = SystemProperties.System.FullText Dim sco = SearchConditionOperation.WordEqual Dim sc1 = SearchConditionFactory.CreateLeafCondition(pKey, "みかん", sco) Dim dir = ShellObject.FromParsingName(searchDir) Dim ssf As New ShellSearchFolder(sc1, DirectCast(dir, ShellContainer)) Dim sc2 = SearchConditionFactory.CreateLeafCondition(pKey, "いちご", sco) Dim dir2 = ShellObject.FromParsingName(searchDir) Dim ssf2 As New ShellSearchFolder(sc2, DirectCast(dir, ShellContainer)) ListBox1.DataSource = Nothing ListBox2.DataSource = Nothing ListBox1.DisplayMember = "ParsingName" ListBox2.DisplayMember = "ParsingName" ListBox1.DataSource = ssf.ToArray() ListBox2.DataSource = ssf2.ToArray()