Atlanta Custom Software Development 

   Search        Code/Page

User Login



Forgot the Password?
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
» Regular Expr Tester
» Free Tools

ConcatenateFiles - Concatenating multiple text files

Total Hit ( 2281)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article



Click here to copy the following block
' Concatenate a variable number of text files into a single result file
' Params:
' - resultFile: the complete path of the result file you want to create
' - header: a string that is written when a file is added to the result file.
'  Note: this string can contain the #FilePath# tag that will be replaced
' with the path of the file being added
' - sourceFiles: the sequence of files whose content will be concatenated
' Example:
'  ConcatenateFiles ("D:\res.txt", "------ NEW FILE: #FilePath# ------",
' "D:\1.txt", "D:\2.txt", "D:\3.txt")

Sub ConcatenateFiles(ByVal resultFile As String, ByVal header As String, _
  ByVal ParamArray sourceFiles() As String)
  Dim writer As System.IO.StreamWriter
  Dim reader As System.IO.StreamReader

    writer = New System.IO.StreamWriter(resultFile, True)
    Dim fpath As String
    For Each fpath In sourceFiles
      ' write the header string, with #FilePath# replaced with
      ' the path of the source file being processed
      writer.WriteLine(header.Replace("#FilePath#", fpath))
        ' open the source file in read mode
        reader = New System.IO.StreamReader(fpath)
        ' append all the content of the current file in the destination
        ' file
        writer.Write(reader.ReadToEnd() & Environment.NewLine)
        If Not reader Is Nothing Then
          reader = Nothing
        End If
      End Try
    ' close the writer stream
    If Not writer Is Nothing Then writer.Close()
  End Try
End Sub

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with, SQL Server and other MS technologies. He is, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.