تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب

انا عندى ملف قاعدة بيانات يتم الحفظ يومى بتاريخ اليوم

كل الفكره محتاج طريقة لعمل check او فحص على اسم الملف هذا اذا كان موجود بتاريخ اليوم لا يقوم وم بالامر يقوم بعمل رسالة ان الاسم موجود
وشكرا ارجو قد اكون اضحت الفكرة
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#2
يرجى وضع مثال للتعديل عليه
وشكرا
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:
#3
هذا هو كود قاعدو البيانات
فى حدث عند الاغلاق

اذا كان اسم المجلد بتاريخ اليوم لا يعمل الامر غير ذلك تظهر رسالة

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() 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#4
تفضل أخي العزيز
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(DestinationFileThen
            MsgBox
("الملف موجود")
            Return
        
End If
        
FileCopy(SourceFileDestinationFile)
        
MsgBox("Copeid Successfully"

أتمنى لك التوفيق
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
#5
السلام عليكم 
ما قام به الأخ 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(DestinationFileThen
            If MsgBox
("الملف موجود هل تريد حفظه مرة أخرى"vbYesNo) = vbYes Then
                FileCopy
(SourceFileDestinationFile)
 
               MsgBox("تم الحفظ بنجاح")
 
           Else
                Return
            End 
If
 
       Else
            FileCopy
(SourceFileDestinationFile)
 
           MsgBox("تم الحفظ بنجاح")
 
       End If

 
    

تقبل مروري
الرد
تم الشكر بواسطة: khodor1985


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد كود لمعرفة باسورد حهاز الكمبيوتر مثل كود معرفة اسم المستخدم تناسيم 2 59 منذ 8 ساعة مضت
آخر رد: dasktop
Heart اريد طريقة اضافة رقم صفر قبل الرقم ahmadpal 6 116 12-11-18, 01:00 PM
آخر رد: elgokr
  [VB.NET] طريقة عرض قيمة المحدد من ComboBox فراس الغزي 6 117 03-11-18, 12:08 AM
آخر رد: فراس الغزي
  [سؤال] ماهي طريقة الاتصال بقاعدة بيانات sql على السيرفر 102030 1 87 28-10-18, 11:19 PM
آخر رد: عبد العزيز البسكري
  أنهيت العمل ! أحتاج الأن إلى طريقة لتثبيت برنامجي hichem1 14 469 26-10-18, 05:03 PM
آخر رد: alsouf
  ما هي أسهل طريقة لتحويل مشروع VB.net الي asp.net dametucorazon 3 187 26-10-18, 04:09 PM
آخر رد: dametucorazon
  [VB.NET] طريقة عرض السجلات بطريقة افقية larbihamri 22 651 25-10-18, 09:52 AM
آخر رد: mohamedgadain61
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 2 138 22-10-18, 12:15 AM
آخر رد: جيولوجي مبتدئ
  حول طريقة تسجيل الدخول التلقائي naderalkeng54 13 446 20-10-18, 01:15 PM
آخر رد: Mohamed Magdy
  طريقة تعبئة الداتا جريد فيو من اكثر من جدول سمير جمال 1 112 19-10-18, 08:56 PM
آخر رد: سمير جمال

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم