[الطالب]

سلام


بشرط يكون السطر ما فيه غير التاريخ

كود :

Dim lines As String() = IO.File.ReadAllLines("filename.txt")
For i = 0 To lines.Length - 1
    If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
        lines(i) = CDate(lines(i)).AddDays(1)
    End If
Next
IO.File.WriteAllLines("filename.txt", lines)

موفقين