Find Text in File
04-Aug-0909 Leave a comment
Technorati Tags: Visual Studio,VB.Net
Private Function IsTextInFile(ByVal MyDir As String, ByVal TextToFind As String, ByVal MyFileWildcard As String) As Boolean
list = My.Computer.FileSystem.FindInFiles(MyDir, TextToFind, True, FileIO.SearchOption.SearchTopLevelOnly, MyFileWildcard)
IsTextInFile = True
End If End Function
Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
list = My.Computer.FileSystem.FindInFiles(MyDir, TextToFind, True, FileIO.SearchOption.SearchTopLevelOnly, MyFileWildcard)
If list.Count = 1 Then
IsTextInFile = True
End If End Function
Stephen Shakespeare 