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