CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to Merge a number of source files into a destination file
Private Sub mergeFiles(ByVal strDestinationFile As String, ParamArray strSourceFiles())
    Dim I As Long, strBuff As String
    Open strDestinationFile For Output As #1
    For i = 0 To UBound(strSourceFiles)
        Print #1, ""
        Print #1, "***"
        Print #1, "*** " & strSourceFiles(i)
        Print #1, "***"
        Print #1, returnContents(strSourceFiles(i))
    Next
    Close #1
End Sub