22-08-15, 10:30 PM
(آخر تعديل لهذه المشاركة : 22-08-15, 10:37 PM {2} بواسطة احمد عبد الحكيم.)
اخى الطالب انا اتاسف على اى سؤ تفاهم لاكنى كنت اريد ان الاجابه تصل لك على حسب المشاركة التى وضعتها
ثانى شئ انا كنت اريد اذا كان ملف txt ليس موجود فى الفلدر يقوم بانشاء ملف جديد
وبعد ذلك يقوم بعمل الخطوات الاخرى
اخى الكريم الطالب هذا الكود لا يعمل
ثانى شئ انا كنت اريد اذا كان ملف txt ليس موجود فى الفلدر يقوم بانشاء ملف جديد
وبعد ذلك يقوم بعمل الخطوات الاخرى
اخى الكريم الطالب هذا الكود لا يعمل
كود :
'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
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)
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين

