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
laptop setup win 7 64bit with 32bit xp pro emulator
Crystal Reports 11 (migrating from 8.5) and VB6 using RDO resultset as datasource
Jumbo frame configuration is saved where?
PL/SQL Export table data to .csv file and save; launch Excel inside PL/SQL and load saved .csv file
SSRS - Relationship setup in Report model
SQL 2005 Select Query from multiple tables
Variable not defined error using VBA ExportAsFixedFormat Type:=xlTypePDF in excel 2003
Clear Fields in Lotus Notes
FTP not working on Windows Server 2008 IIS 7
How to get unique records based on maximum date?