ConcatFiles

Private Function Fileconcat(ByVal SourceFile1 As String, _
ByVal SourceFile2 As String, _
ByVal DestinationFile As String) As Long
Dim strMine As String
Dim lngPCLength As Long
Dim lngLoop As Long
Dim lngUnixPOS As Long
Dim strChar As String * 1
Dim objFSO As Scripting.FileSystemObject
Dim objSourceAs Scripting.TextStream
Dim objDestination As Scripting.TextStream
Set objFSO = New Scripting.FileSystemObject
objFSO.CopyFile SourceFile1, DestinationFile, True

Set objSource = objFSO.OpenTextFile(SourceFile2, ForReading, _
False, TristateFalse)
Set objDestination = objFSO.OpenTextFile(DestinationFile, _
ForAppending, False, TristateFalse)

Do While Not objSource.AtEndOfStream
strChar = objSource.Read(1)
objDestination.Write strChar
Loop

objSource.Close
objDestination.Close
Set objSource = Nothing
Set objDestination = Nothing
Set objFSO = Nothing
End Function