[الطالب]

سلام


هذه طريقه اخرى بانشاء ملف فارغ واخفاه فقط

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

جرب بعد التشغيل الاول تغير التاريخ لمده اكثر من خمسه ايام وشغل من جديد

كود :

Private Sub cd()

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

   If Not IO.File.Exists(filename) Then

       'انشا الملف
       IO.File.Create(filename)

       'اخفا الملف
       IO.File.SetAttributes(filename, IO.FileAttributes.Hidden + IO.FileAttributes.System)

   End If


   'معرفت عدد الايام منذ تاريخ انشاء الملف حتى تاريخ اليوم
   Dim days As Integer = DateDiff(DateInterval.Day, My.Computer.FileSystem.GetFileInfo(filename).CreationTime.Date, Today.Date)

   If days > 5 Then
       MsgBox("انتهت الفتره التجريبيه")
       Application.Exit()
   End If

End Sub

انتبه الملف حيكون مخفي مثل ملفات النظام الخاصه وليس اخفا عادي


موفقين