code to read two text files, concatenate one after the other, output..

[dgr7]

hello,
what would be the code that would allow me to read in two text files, concatenate the second one to the end of the first one, then output the file as a new third text file?
thanks in advance,
david

 

[strongm]

[blue]With CreateObject("scripting.filesystemobject")
        .CreateTextFile("c:\text3.txt").Write .OpenTextFile("c:\text1.txt").ReadAll & .OpenTextFile("c:\text2.txt").ReadAll
    End With[/blue]

 

[traingamer]

Look at Open and Write.

Greg
"Personally, I am always ready to learn, although I do not always like being taught." - Winston Churchill

 

[traingamer]

Although strongm answer is quicker and shorter.

Greg
"Personally, I am always ready to learn, although I do not always like being taught." - Winston Churchill

 

[dgr7]

this code I was given by a user on another site works well for me, at least it did well in a test run with the largest text files I'll probably be doing with.
thanks,
david

Sub JoinFiles(ByVal File1 As String, ByVal File2 As String, ByVal SaveAs As String)
    Dim intFF As Integer, strBuffer As String
    Dim lonL1 As Long, lonL2 As Long
    
    lonL1 = FileLen(File1)
    lonL2 = FileLen(File2)
    
    'Allocate space for the 2 files.
    strBuffer = Space$(lonL1 + lonL2)
    
    intFF = FreeFile
    
    Open File1 For Input As #intFF
        Mid$(strBuffer, 1, lonL1) = Input(LOF(intFF), intFF)
    Close #intFF
    
    intFF = FreeFile
    
    Open File2 For Input As #intFF
        Mid$(strBuffer, lonL1 + 1) = Input(LOF(intFF), intFF)
    Close #intFF
    
    intFF = FreeFile
    
    'Write new file.
    Open SaveAs For Output As #intFF
        Print #intFF, strBuffer
    Close #intFF
    
    strBuffer = ""
End Sub

 

[strongm]

You didn't like the filesystemobject solution given here, then?

 

[dgr7]

I haven't tested that solution yet, had to get the code in production ASAP and the JoinFiles one was appealing to me at the time.
thanks,
david

 

[strongm]

>ASAP

What, 15 minutes wasn't fast enough? ;-)

 

[BobRodes]

And the prize for shortest answer of all goes to

Shell "cmd /c copy c:\text1.txt + c:\text2.txt c:\text3.txt", vbHide

Although it may be abysmally slow...but it sure is cute.