delete first line in txt and rewrite

[sal21]

I need to delete the first line in txt, from c:\mydir\test.txt and rewrite it in c:\mydir\test_ok.txt.
Tks

 

[strongm]

A tiny modificatiopn of the Rewrite function previously provided in thread222-1826297

[COLOR=blue]Public Sub Rewrite2(strIn As String, strOut As String)
    Dim Instream As Object
    With New FileSystemObject
        Set Instream = .OpenTextFile(strIn, ForReading)
        Instream.SkipLine
        .OpenTextFile(strOut, ForWriting, True).Write Instream.ReadAll
    End With
End Sub[/color]

Or if, as I somewhat suspect, both these questions are related, here is removing the first line and replacing the characters

[COLOR=blue]Public Sub Rewrite2(strIn As String, strOut As String)
    Dim Instream As Object
    With New FileSystemObject
        Set Instream = .OpenTextFile(strIn, ForReading)
        Instream.SkipLine
        .OpenTextFile(strOut, ForWriting, True).Write Replace(Instream.ReadAll, ";", ",")
    End With
End Sub[/color]

 

[sal21]

GREAT! Strongm. tks