Solved

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

Posted on 2008-09-30
2
235 Views
Last Modified: 2012-05-05
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
Comment
Question by:IT_Steve
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 22610302
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
 

Author Closing Comment

by:IT_Steve
ID: 31501759
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

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create and use a custom WaterMark textbox class.  The custom WaterMark textbox class allows you to set the WaterMark Background Color and WaterMark text at design time.   IMAGE OF WATERMARKS STEPS Create VB …
Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

732 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question