Question : Merge 2 text files - access denied?

Can someone show me a way to merge 2 text files into 1 or into a new text file?
I have a way but get "access denied" when trying to rename one of the files after the merge with FSO.

Dim fso As Object
Dim f, f2, File As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Program Files\Helios11\Credit Card Approved 7-15-10.txt", 1)
Set f2 = fso.OpenTextFile("C:\Program Files\Helios11\Checking Approved 7-15-10.txt", 8)
f2.Write f.ReadAll

fso.MoveFile "C:\Program Files\Helios11\Checking Approved 7-15-10.txt", "C:\Program Files\Helios11\newname.txt"

Kill ("C:\Program Files\Helios11\Credit Card Approved 7-15-10.txt")

Set fso = Nothing
Set f = Nothing
Set f2 = Nothing
Set File = Nothing

TIA,
Andrew

Answer : Merge 2 text files - access denied?

You may need to close the TextStreams before you can move the file.

f.Close
f2.Close
fso.MoveFile "C:\Program Files\Helios11\Checking Approved 7-15-10.txt", "C:\Program Files\Helios11\newname.txt"
Random Solutions  
 
programming4us programming4us