0

我无法使用 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
4

0 回答 0