• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 250
  • Last Modified:

Ho do I open each file in a folder and append the contents on separate lines in a new file?

I have several files in  a folder with one line in each of them. I want each lines put into one file appended after each other. Then I want to move the original file(s) to an archive folder. I am using VB.NET 2003. Do you have some code examples how to accomplish this? Thank you.
0
IT_Steve
Asked:
IT_Steve
1 Solution
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
It might look something like...
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sb As New System.Text.StringBuilder
        Dim outputFile As String = "c:\output.txt"
        Dim sourceFolder As String = "c:\data"
        Dim archiveFolder As String = "c:\archive"
        For Each file As System.IO.FileInfo In New System.IO.DirectoryInfo(sourceFolder).GetFiles("*.txt")
            sb.Append(ReadEntireFile(file.FullName))
            file.MoveTo(System.IO.Path.Combine(archiveFolder, file.Name))
        Next
        Dim sw As New System.IO.StreamWriter(outputFile)
        sw.Write(sb.ToString)
        sw.Close()
    End Sub
 
    Private Function ReadEntireFile(ByVal filename As String)
        Dim sr As New System.IO.StreamReader(filename)
        Dim entireFile As String = sr.ReadToEnd
        sr.Close()
        Return entireFile
    End Function
 
End Class

Open in new window

0
 
IT_SteveAuthor Commented:
I wish I could make this stuff fluent for me like it seems for you. I guess I just keep at it. Seeing it makes it pretty clear.Thanks again for your assistance.
Steve
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now