+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر (/showthread.php?tid=14685)
شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر - احمد عبد الحكيم - 09-02-16
بسم الله الرحمن الرحيم
السلام عليكم شباب
انا عندى ملف قاعدة بيانات يتم الحفظ يومى بتاريخ اليوم
كل الفكره محتاج طريقة لعمل check او فحص على اسم الملف هذا اذا كان موجود بتاريخ اليوم لا يقوم وم بالامر يقوم بعمل رسالة ان الاسم موجود
وشكرا ارجو قد اكون اضحت الفكرة
RE: شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر - احمد عبد الحكيم - 09-02-16
هذا هو كود قاعدو البيانات
فى حدث عند الاغلاق
اذا كان اسم المجلد بتاريخ اليوم لا يعمل الامر غير ذلك تظهر رسالة
PHP كود :
Dim oCnn As OleDbConnection
oCnn = New OleDbConnection
oCnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LibraryData\LibraryData.accdb;"
oCnn.Close()
SourceFile = "D:\LibraryData\LibraryData.accdb"
DestinationFile = "D:\DataCopy\" & Format(Date.Now, "yyyy-MM-dd ") & ".accdb"
FileCopy(SourceFile, DestinationFile)
oCnn.Open()
RE: شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر - thevest_knight - 13-02-16
السلام عليكم
ما قام به الأخ Khodor1985 لن ينتظر شخصا مثلي لانتقاده لأنه و ببساطة أستاذ الجميع
لكن لدي اقتراح لك أخي الكريم بإضافة خاصية السؤال عما إذا كان المستخدم يريد الحفظ مرة أخرى أم لا
لأنه قد يقوم بحفظ نسخة احتياطية عن قاعدة بياناته لكن يضطر فيما بعد للتعديل عليها و حسب ما طلبت أنت لا يمكنه أخذ نسخة إحتياطية ثانية و هذا خطأ
لذلك أقترح عليك استخدام طريقة التأكد مع السؤال و إليك الكود المعدل
PHP كود :
Dim SourceFile As String
Dim DestinationFile As String
SourceFile = "D:\LibraryData\LibraryData.accdb"
DestinationFile = "D:\DataCopy" & "-" & Format(Date.Now, "yyyy-MM-dd ") & ".accdb"
If File.Exists(DestinationFile) Then
If MsgBox("الملف موجود هل تريد حفظه مرة أخرى", vbYesNo) = vbYes Then
FileCopy(SourceFile, DestinationFile)
MsgBox("تم الحفظ بنجاح")
Else
Return
End If
Else
FileCopy(SourceFile, DestinationFile)
MsgBox("تم الحفظ بنجاح")
End If
تقبل مروري