[الطالب]

سلام


هذا الكود فيه تعديل مثل ماطلبت اذا ما كان موجود راح ينشئه ويكمل بقيت الخطوات واستغنينا عن savdate

كود :

Private Sub cd()
    'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
    Dim filename As String = "D:\aka\aka.png"


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

    If My.Computer.FileSystem.ReadAllText(filename).ToString.Trim = "" Then
        'وهذا كود لحفظ التاريخ الحالى
        My.Computer.FileSystem.WriteAllText(filename, Now.Date, False)
    Else
        'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
        Dim lines As String() = IO.File.ReadAllLines(filename)
        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, lines)
    End If
End Sub

موفقين