Delete First Line on Text File

Sub OpenTextFileDeleteFirtsLine()

Dim hostSettleTimeout As Integer

Dim hostSettleTime As Integer

Dim osCurrentScreen As Screen

Dim osCurrentTerminal As Terminal

Dim returnValue As Integer

Dim hiddenTextEntry As String

hostSettleTimeout = 5000

hostSettleTime = 300

Set osCurrentTerminal = ThisFrame.SelectedView.control

Set osCurrentScreen = osCurrentTerminal.Screen

Dim iFile As Integer

Dim sData As String

iFile = FreeFile

Open "C:\File.txt" For Binary Access Read As iFile

sData = Space(LOF(iFile))

Get #iFile, , sData

Close iFile

sData = Mid(sData, InStr(sData, vbCrLf) + 2)

Kill "C:\File.txt"

iFile = FreeFile

Open "C:\File.txt" For Binary Access Write As iFile

Put #iFile, , sData

Close iFile

End Sub