我有一个文件夹,其中包含大约100个txt文件,每个文件中都包含信息。
我正在试图弄清楚如何遍历文件夹中的每个文件,并将文本添加到字符串中。
我已将其从MSDN的网站上移除,但它似乎没有读取“每个”文件,只有一个。
有关如何读取文件夹中的每个文件并将文本添加到字符串的任何想法?感谢
Dim path As String = "c:\temp\MyTest.txt"
' This text is added only once to the file.
If File.Exists(path) = False Then
' Create a file to write to.
Dim createText As String = "Hello and Welcome" + Environment.NewLine
File.WriteAllText(path, createText)
End If
' This text is always added, making the file longer over time
' if it is not deleted.
Dim appendText As String = "This is extra text" + Environment.NewLine
File.AppendAllText(path, appendText)
' Open the file to read from.
Dim readText As String = File.ReadAllText(path)
RichTextBox1.Text = (readText)
这只是给我他们创建的文本而不是txt文件中的任何内容。
答案 0 :(得分:1)
您要做的是使用DirectoryInfo.GetFiles()
method循环浏览文件。这是一个示例,它还使用StringBuilder
来获得更好的性能:
Dim fileContents As New System.Text.StringBuilder()
For Each f As FileInfo In New DirectoryInfo("C:\MyFolder").GetFiles("*.txt") ' Specify a file pattern here
fileContents.Append(File.ReadAllText(f.FullName))
Next
' Now you can access all the contents using fileContents.ToString()