06-18-2012, 06:04 PM
I believe something like this may solve your problem!
As far as VB.NET help goes, feel free to experiment! Have a goal in mind, and try to accomplish it on your own. That's the best way to learn.
Code:
Public Function GetFilesContaining(ByVal key As String, ByVal directoryPath As String) As List(Of System.IO.FileInfo)
Dim filesContaining As New List(Of System.IO.FileInfo) 'This will store what files contain the keyword
Dim directoryInfo As New System.IO.DirectoryInfo(directoryPath)
Dim filesInDirectory() As System.IO.FileInfo = directoryInfo.GetFiles("*.txt", True)
'Now, scroll through all the files and see if it contains a value
For Each file As System.IO.FileInfo In filesInDirectory
If (IO.File.ReadAllText(file.FullName).Contains(key)) Then 'The file contains the key
filesContaining.Add(file) 'Add it to the return list
End If
Next
'Return the list
Return filesContaining
End Function
As far as VB.NET help goes, feel free to experiment! Have a goal in mind, and try to accomplish it on your own. That's the best way to learn.