how do i get the last line of a file and erase it?

[michelle]

Hello bzemer,

I don't know what you are meaning but I do think the next source will help you.

Private Sub Form_Load()
Dim SourceFile, TargetFile, Row As String
SourceFile = "c:\Source.Txt"
TargetFile = "c:\Target.Txt"

If Dir(TargetFile) <> "" Then Kill (TargetFile)

Open SourceFile For Input As #1
Open TargetFile For Append As #2

While Not EOF(1) 'read all lines of source file
Line Input #1, Row 'read a row

Print #2, Row 'write a row
Wend
End Sub

Nice regards,

Michelle