2 txt filer i een

Public Function MergeTxt()
    Dim sti As String, StrLine As String
    sti = "C:\data\"
    Open sti & "txt1.txt" For Append As #1' gør fil 1 klar til tilføjelse
    Open sti & "txt2.txt" For Input As #2 'gør fil 2 klar til læsning
    Do
        Line Input #2, StrLine ' læser en linie i fil 2
        Print #1, StrLine      ' gemmer samme linie i fil 1
    Loop Until EOF(2) ' kør i loop intil enden er nået i fil 2
    Close
    'Kill sti & "txt2.txt" sletter  fil 2
End Function

takker smid et svar

et svar ;-))