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.
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
"XP" <X...@discussions.microsoft.com> wrote in message
news:85C25A4A-B954-4370...@microsoft.com...
Thanks much Jim!