VB.NET

merging two txt files into one txt file

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Dec 2008

Posts: 13

Reputation: nmakkena is an unknown quantity at this point

Solved Threads: 0

nmakkena

Offline

Newbie Poster

merging two txt files into one txt file

Jan 5th, 2009

Hi,

Actully i wanted to merge two txt files into one txt file. (i.e. second file has to be appended to the first file). please give me some solution for my problem. I am new to vb.net, so pls elaborate the solution.

Thanks in advance.

•

Join Date: Dec 2008

Posts: 2

Reputation: robert_c_guy is an unknown quantity at this point

Solved Threads: 0

robert_c_guy robert_c_guy is offline

Offline

Newbie Poster

Re: merging two txt files into one txt file

Jan 5th, 2009

VB.Net makes a task like that quite simple:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Public Sub text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    )
        System.IO.File.AppendAllText( _
            path_to_append_file, _
            System.IO.File.ReadAllText(path_to_read_file) _
        )
    End Sub
    Public Sub text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    )
        System.IO.File.AppendAllText( _
            path_to_append_file, _
            System.IO.File.ReadAllText(path_to_read_file) _
        )
    End Sub

A little error checking may prevent hangups:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Public Function text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    ) As Boolean
        If ( _
            (IO.File.Exists(path_to_read_file)) _
            And (IO.File.Exists(path_to_append_file)) _
        ) Then
            Try
                System.IO.File.AppendAllText( _
                    path_to_append_file, _
                    System.IO.File.ReadAllText(path_to_read_file) _
                )
                text_combine = True
            Catch ex As Exception
                text_combine = False
            End Try
        Else
            text_combine = False
        End If
    End Function
    Public Function text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    ) As Boolean
        If ( _
            (IO.File.Exists(path_to_read_file)) _
            And (IO.File.Exists(path_to_append_file)) _
        ) Then
            Try
                System.IO.File.AppendAllText( _
                    path_to_append_file, _
                    System.IO.File.ReadAllText(path_to_read_file) _
                )
                text_combine = True
            Catch ex As Exception
                text_combine = False
            End Try
        Else
            text_combine = False
        End If
    End Function