[ali.alfoly]

السلام عليكم

كود الحذف

كود :

Dim fil_lin() As String = IO.File.ReadAllLines(Me.TextBox1.Text)
        Dim Lins As String = ""
        For Each lin As String In fil_lin
            If Me.TextBox2.Text <> lin Then Lins += lin & vbNewLine
        Next
        IO.File.WriteAllText(Me.TextBox1.Text, Lins)

كود الاضافة

كود :

My.Computer.FileSystem.WriteAllText(Me.TextBox1.Text, Me.TextBox2.Text & vbNewLine, True)