如何逐个读取测试文件

Question

我正在做一个项目，我需要读取程序目录中的文本文件并检查其中的特定关键字。一个例子：文件夹包含具有某种名称(不特定(的文件，我想一个接一个地读取它们以检查其中的特定字符串，直到全部检查完毕。我一直在寻找读取此类文件的方法，但找不到任何方法。

Answer 1

这是一种方法

Dim di As New IO.DirectoryInfo("C:UsersmyuserDesktop123")
Dim aryFi As IO.FileInfo() = di.GetFiles("*.txt")
Dim fi As IO.FileInfo
For Each fi In aryFi
Dim MyStream As New StreamReader(fi.FullName)
Dim txt As String = MyStream.ReadToEnd
MsgBox(txt)
Next

你检查txt.contains("blabla"(，然后你想做任何你想做的事。