CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to Delete a specific line from a file (note: first line = line number 0)
Private Sub deleteLine(ByVal strFile As String, ByVal lineNumber As Long)
    Dim strArrBuff() As String, i As Long
    Open strFile For Input As #1
    strArrBuff() = Split(Input(LOF(1), 1), vbCrLf)
    Close #1
    Open strFile For Output As #1
    For i = 0 To UBound(strArrBuff)
        If Not i = lineNumber Then Print #1, strArrBuff(i)
    Next
    Close #1
End Sub