[احمد عبد الحكيم]

اخى الكريم الطالب
شكرا على المشاركة لقد قمت باضافة الكود ضمن الاكواد التى وضعها
ارجو منك تصحيح الخطأ

PHP كود :

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

    End Sub