Imports System.IO
Imports System.Xml.Linq
Module Module1
Sub Main()
Dim files = From chkFile In Directory.EnumerateFiles("c:\", "*.txt", _
SearchOption.AllDirectories)
From line In File.ReadLines(chkFile)
Where line.Contains("is")
Select New With {.curFile = chkFile, .curLine = line}
For Each f In files
Console.WriteLine("{0}\t{1}", f.curFile, f.curLine)
Next
Console.WriteLine("{0} files found.",files.Count.ToString())
End Sub
End Module