Microsoft
Software
Hardware
Network
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.Fi
leSystemOb
ject")
Set f = fso.OpenTextFile("C:\Progr
am Files\Helios11\Credit Card Approved 7-15-10.txt", 1)
Set f2 = fso.OpenTextFile("C:\Progr
am 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.Mo
veFile "C:\Program Files\Helios11\Checking Approved 7-15-10.txt", "C:\Program Files\Helios11\newname.txt
"
Random Solutions
Microsoft WORD doesnt open full screen
Ubuntu - Vista
MRSS FEED
web design vs dev
LinqDataSource Benefits
Most Efficient Way Of Appending to a Byte[]
windows 2008
Detect Session State TimeOut
excel vba script needed
Does intel code i3 supports windows xp,