Merge several fixed width text files into one

[XP]

Using Office 2003 and Windows XP; and using using VBA from MS-Excel;

1) There will be several (between 1 and 10) fixed width text files in a
specific folder, each formatted the same way; the files range from a few kb
to 100kb in size.

2) I need a program that will sequentially open each text file and copy the
contents;

3) The contents of each separate text file, along with all formatting, must
be transferred undisturbed into a new fixed width text file, appending the
contents of each text file into a new SINGLE merged text file;

I can already code the part where the list of files is captured and each may
be opened and closed. I need help with the part where the data is copied from
the text file and then written to the new single merge file. Can someone
please post some example code that would help me get started?

Should I use FileSystemObject? Or something else? Suggestions? Help?

Thanks much in advance for your assistance.

 

[Jim Rech]

Adapt this:

Sub a()
Dim SrcFiles, CurrSrc As String
Dim DestFile As String, Counter As Integer
Dim TextLine As String
SrcFiles = Array("c:\File1.txt", "c:\File2.txt")
Open "c:\file3.txt" For Output As #1
For Counter = 0 To UBound(SrcFiles)
Open SrcFiles(Counter) For Input As #2
Do While Not EOF(2)
Line Input #2, TextLine
Print #1, TextLine
Loop
Close #2
Next
Close #1
End Sub


--
Jim
| Using Office 2003 and Windows XP; and using using VBA from MS-Excel;
|
| 1) There will be several (between 1 and 10) fixed width text files in a
| specific folder, each formatted the same way; the files range from a few
kb
| to 100kb in size.
|
| 2) I need a program that will sequentially open each text file and copy
the
| contents;
|
| 3) The contents of each separate text file, along with all formatting,
must
| be transferred undisturbed into a new fixed width text file, appending the
| contents of each text file into a new SINGLE merged text file;
|
| I can already code the part where the list of files is captured and each
may
| be opened and closed. I need help with the part where the data is copied
from
| the text file and then written to the new single merge file. Can someone
| please post some example code that would help me get started?
|
| Should I use FileSystemObject? Or something else? Suggestions? Help?
|
| Thanks much in advance for your assistance.

 

[XP]

I adapted your example code and it works perfectly - and fast...

Thanks much Jim!