需要遍历文件夹并将每个文本文件读取为字符串

时间:2012-01-20 17:49:52

标签: .net vb.net

我有一个文件夹,其中包含大约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文件中的任何内容。

1 个答案:

答案 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()