[الطالب]

سلام


لا عليك

اعتقد هذا ما تريده بعد التوضيح - واعتذر يبدوا انني قد اسات فهم طلبك وتوهتك

كود :

Private Sub cd()

    'اسم الملف
    Dim filename As String = "D:\aka\aka.png"

    'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
    If Not IO.File.Exists(filename) Then
        'وهذا كود لحفظ التاريخ الحالى
        IO.File.WriteAllText(filename, Now.Date)

    Else
        Dim lines As List(Of String) = IO.File.ReadAllLines(filename).ToList

        If lines.Count > 0 Then
        'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
            If CDate(lines(0)) = Today Then
                lines.Insert(0, Now.Date.AddDays(1))
            End If
        End If

        IO.File.WriteAllLines(filename, lines)

    End If

End Sub

موفقين