CSC-SY

Sub Merge(FolderPath As String, MergedFile As String)

	Dim Files() As String = System.IO.Directory.GetFiles(FolderPath)

	If (Files IsNot Nothing AndAlso Files.Length > 0)

		Dim I As Integer

		Try

			Dim fileStreamWriter As New System.IO.StreamWriter(MergedFile)

			Dim fileStreamReader As System.IO.StreamReader

			For I = 0 To Files.Length - 1

				fileStreamReader = New System.IO.StreamReader(FolderPath & "\" & Files(i))

				fileStreamWriter.Write(fileStreamReader.ReadToEnd())

				fileStreamReader.Close()

			Next

		Catch Ex As Exception

			Msgbox(Ex.ToString())

		Finally

			fileStreamWriter.Close()

		End Try

	End If

End Sub