Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
Hello,
I am trying to adapt the following code posted by Jim Rech. 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 I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. Thanks, Rich |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
Sub a()
Dim SrcFiles() as String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName as String, i as Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") Redim SrcFiles(1 to 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error goto 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 do while sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop Redim SrcFiles(1 to i) Open "c:\ECPJM\combined.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 -- Regards, Tom Ogilvy Rich wrote in message om... Hello, I am trying to adapt the following code posted by Jim Rech. 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 I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. Thanks, Rich |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
Whoops, change
Open SrcFiles(Counter) For Input As #2 to Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 -- Regards, Tom Ogilvy Tom Ogilvy wrote in message ... Sub a() Dim SrcFiles() as String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName as String, i as Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") Redim SrcFiles(1 to 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error goto 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 do while sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop Redim SrcFiles(1 to i) Open "c:\ECPJM\combined.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 -- Regards, Tom Ogilvy Rich wrote in message om... Hello, I am trying to adapt the following code posted by Jim Rech. 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 I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. Thanks, Rich |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
Hi Tom,
I changed the code to what you have listed and I get a Run-Time error '9': Subscript out of range. If I Debug it highlights: Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 Any ideas on this error? I greatly appreciate your help. Thanks, Rich Sub a() Dim SrcFiles() As String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName As String, i As Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") ReDim SrcFiles(1 To 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error GoTo 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 Do While sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop ReDim SrcFiles(1 To i) Open "c:\ECPJM\combined.txt" For Output As #1 For Counter = 0 To UBound(SrcFiles) Open "C:\ECPJM\" & 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 "Tom Ogilvy" wrote in message ... Whoops, change Open SrcFiles(Counter) For Input As #2 to Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 -- Regards, Tom Ogilvy Tom Ogilvy wrote in message ... Sub a() Dim SrcFiles() as String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName as String, i as Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") Redim SrcFiles(1 to 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error goto 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 do while sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop Redim SrcFiles(1 to i) Open "c:\ECPJM\combined.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 -- Regards, Tom Ogilvy Rich wrote in message om... Hello, I am trying to adapt the following code posted by Jim Rech. 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 I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. Thanks, Rich |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
For Counter = 0 To UBound(SrcFiles) should be For Counter = 1 To UBound(SrcFiles) -- Regards, Tom Ogilvy Rich wrote in message m... Hi Tom, I changed the code to what you have listed and I get a Run-Time error '9': Subscript out of range. If I Debug it highlights: Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 Any ideas on this error? I greatly appreciate your help. Thanks, Rich Sub a() Dim SrcFiles() As String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName As String, i As Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") ReDim SrcFiles(1 To 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error GoTo 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 Do While sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop ReDim SrcFiles(1 To i) Open "c:\ECPJM\combined.txt" For Output As #1 For Counter = 0 To UBound(SrcFiles) Open "C:\ECPJM\" & 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 "Tom Ogilvy" wrote in message ... Whoops, change Open SrcFiles(Counter) For Input As #2 to Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 -- Regards, Tom Ogilvy Tom Ogilvy wrote in message ... Sub a() Dim SrcFiles() as String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName as String, i as Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") Redim SrcFiles(1 to 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error goto 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 do while sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop Redim SrcFiles(1 to i) Open "c:\ECPJM\combined.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 -- Regards, Tom Ogilvy Rich wrote in message om... Hello, I am trying to adapt the following code posted by Jim Rech. 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 I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. Thanks, Rich |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
I changed the code to the following, but am getting a run-time error
76 "Path not found" on the line: Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 However the path is spelled correctly and I even copied it from Windows Explorer. Any ideas? Sub a() Dim SrcFiles() As String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName As String, i As Long ReDim SrcFiles(1 To 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error GoTo 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 Do While sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop ReDim SrcFiles(1 To i) Open "C:\DELL\t\combined.txt" For Output As #1 For Counter = 1 To UBound(SrcFiles) Open "C:\ECPJM\" & 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 "Tom Ogilvy" wrote in message ... For Counter = 0 To UBound(SrcFiles) should be For Counter = 1 To UBound(SrcFiles) -- Regards, Tom Ogilvy Rich wrote in message m... Hi Tom, I changed the code to what you have listed and I get a Run-Time error '9': Subscript out of range. If I Debug it highlights: Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 Any ideas on this error? I greatly appreciate your help. Thanks, Rich Sub a() Dim SrcFiles() As String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName As String, i As Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") ReDim SrcFiles(1 To 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error GoTo 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 Do While sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop ReDim SrcFiles(1 To i) Open "c:\ECPJM\combined.txt" For Output As #1 For Counter = 0 To UBound(SrcFiles) Open "C:\ECPJM\" & 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 "Tom Ogilvy" wrote in message ... Whoops, change Open SrcFiles(Counter) For Input As #2 to Open "C:\ECPJM\" & SrcFiles(Counter) For Input As #2 -- Regards, Tom Ogilvy Tom Ogilvy wrote in message ... Sub a() Dim SrcFiles() as String, CurrSrc As String Dim DestFile As String, Counter As Integer Dim TextLine As String, sName as String, i as Long ' SrcFiles = Array("c:\File1.txt", "c:\File2.txt") Redim SrcFiles(1 to 1000) On Error Resume Next Kill "C:\ECPJM\combined.txt" On Error goto 0 sName = Dir("C:\ECPJM\" & "*.txt") i = 0 do while sName < "" i = i + 1 SrcFiles(i) = sName sName = Dir Loop Redim SrcFiles(1 to i) Open "c:\ECPJM\combined.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 -- Regards, Tom Ogilvy Rich wrote in message om... Hello, I am trying to adapt the following code posted by Jim Rech. 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 I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. Thanks, Rich |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine all text file in directory into one file.
"Rich" wrote...
.... I need to do the following. I need to combine all the text files in directory "C:\ECPJM" into one text file called "Combined.txt". Any help would be greatly appreciated. While this may offend the VBA purists, I'd recommend searching for the ShellAndWait function in the Google Groups archive for this newsgroup, and using it to run Call ShellAndWait(Environ("ComSpec") & " /c copy " & _ DirectoryPath & "\*.txt " & DirectoryPath & "\x.x") Name DirectoryPath & "\x.x" As DirectoryPath & "\Combined.txt" In general, Windows's command interpreter's COPY command is the best tool available for combining text files. Using anything else is pointless wheel reinvention. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
file save error: the file or directory cannot be created | Excel Discussion (Misc queries) | |||
Excel should let me sort the file directory when saving a file | Excel Discussion (Misc queries) | |||
How to get file name from long directory | Excel Programming | |||
backing up file in directory | Excel Programming | |||
get path - save new file - same sub-directory as existing file | Excel Programming |