将目录中所有文件的内容追加到单个文件中

时间:2013-12-29 04:53:07

标签: vb.net

我有一个目录,其中包含多个具有随机文件名的文件。

首先我用

获取所有文件

myFiles = Directory.GetFiles(Path.GetTempPath & "Files\")

要查看我的文件并附加内容,我首先尝试将它们放入数组:

For Each tempFile As String In myFiles 
   arryString = arryString  & (File.ReadAllLines(tempFile )) 'There Is Error here
Next

这样做的正确方法是什么(将所有文本文件复制到单个文本文件中)?

1 个答案:

答案 0 :(得分:1)

要跟进我的评论,请尝试以下方式:

Using writer As New StreamWriter("newFile.txt")

    For Each tempFile As String in myFiles

        Using reader As New StreamReader(tempFile)

            While Not reader.EndOfStream

                writer.WriteLine(reader.ReadLine())
            End While
        End Using   
    Next
End Using

上面的代码为新文件创建了StreamWriter。然后它循环遍历目录中的文件,并为每个文件创建一个StreamReader。然后它读取文件的每一行(直到EndOfStream为真)并将其写入新文件。

我使用Using语句来确保作者和读者得到妥善处理。