我无法使用 FindInFiles 搜索以字节为单位设置位置。不可以想象,当搜索到的单词被找到时,可以访问搜索位置?
下面是我通过应用程序目录中所有文件的搜索代码。
If Not String.IsNullOrWhiteSpace(Trim(TextBox1.Text)) Then
Dim matches As String = Trim(TextBox1.Text).ToLower
Dim list As System.Collections.ObjectModel.
ReadOnlyCollection(Of String)
list = My.Computer.FileSystem.FindInFiles(My.Application.Info.DirectoryPath & "\Librairies\",
matches, True, FileIO.SearchOption.SearchTopLevelOnly)
If list.Count > 0 Then
For Each filename In list
ListView1.Items.Add(System.IO.Path.GetFileName(filename))
'ListView1.Items(0).SubItems.Add(FirstCharacter)
Next
Else
MessageBox.Show("Aucun résultat.")
End If
End If