Vraag over combineren van txt-files in VBA en Access

[bartprins]

Hoi allemaal,

Ik wil een vijftal txt-bestanden combineren vanuit VBA in Acces naar 1 txt-bestand. Ik ben al een tijdje aan het zoeken en had de volgende code gevonden die op zich goed werk(te).
Dit is de code :

Dim oFS As FileSystemObject
Dim oFS1 As FileSystemObject

Dim oTS As TextStream
Dim oTS1 As TextStream

Dim vTemp

Set oFS = New FileSystemObject
Set oFS1 = New FileSystemObject

For i1 = 1 To 5

Set oTS = oFS.OpenTextFile("c:\text" & i1 & ".txt", ForReading)
vTemp = oTS.ReadAll

Set oTS1 = oFS.OpenTextFile("c:\texttotaal.txt", ForAppending, True)
oTS1.Write (vTemp)
oTS1.Close

Next i1

MsgBox "De bestanden zijn samengevoegd"

Dit werkt prima vanochtend maar ik heb wat kleine wijzigingen aangebracht.
Aantal bestanden teruggebracht van 30 naar 5 en de bestandsnamen.

Nu krijg ik de melding :
Fout 62 invoer na einde van bestand

Ik begrijp niet waarom, waarschijnlijk moet ik met EOF of iets dergelijks werken, maar misschien dat iemand me verder op weg wil helpen ?
Alvast enorm bedankt !

 

[snb]

Alternatief

Sub tst()
  Open "E:\gezamenlijk.txt" For Append As #1
  For j = 1 To 5
    Open "E:\tekst 00" & j [B][COLOR="Red"]& [/COLOR][/B]".txt" For Input As #2
      Print #1, Input(LOF(2)[COLOR="Blue"][B]-1[/B][/COLOR], #2)
    Close #2
  Next
  Close #1
End Sub

 

[bartprins]

Nog een vraagje over de syntaxis

Hoi Snb,

Hardstikke bedankt voor het meedenken, ik krijg alleen nog een fout in je code op regel drie:
-------------------------------
Open "E:\gezamenlijk.txt" For Append As #1
For j = 1 To 5
Open "E:\tekst 00" & j ".txt" For Input As #2 <<<------ melding expect "As"
Print #1, Input(LOF(2), #2)
Close #2
Next
----------------------------------
Kan het zijn dat er een fout in zit ?

Alvast weer bedankt

Bart Prins

 

[snb]

Vorige suggestie verbeterd.

 

[bartprins]

laatste ding

Super snb het werkt perfect, laatste vraag, ik heb tussen de verschillende tekstbestanden in het verzamelbestand nu een lege regel, is deze nog weg te halen ?

Weer enorm bedankt!

 

[snb]

Ik vermoed met mijn blauwe aanpassing van mijn suggestie.

 

[bartprins]

Super

Super !!
Bedankt snb voor de hulp, probleem is helemaal opgelost!

Groetjes

Bart