التحقق من وجود مجلد

[mr steev]

السلام عليكم 

حصلت على قاعدة البيانات المرفقة وفيها عمل نسخة احتياطية للقاعدة الحالية حسب التاريخ والوقت قمت بالتعديل بالكود حتى يقوم بإنشاء مجلد بنفس المسار اسمه الارشيف وحفظ ملفات النسخ الاحتياطية بداخله

المطلوب

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

وإذا لم يكن موجود قم بإنشاءه وحفظ ملف النسخة الاحتياطية فيه

ولا يظهر لدي الخطأ رقم 75 الذي يخص إنشاء مجلد الأرشيف في كل مرة أقوم فيها بضغط زر (عمل نسخة احتياطية حسب التاريخ والوقت بنفس المسار داخل مجلد الارشيف) 

وجزاكم الله خير

 

Make Backup.rar

تم تعديل ديسمبر 31, 2016 بواسطه mr steev

[صالح حمادي]

استعمل هذا الكود:

Dim curPath As String
curPath = CurrentProject.Path & "\الأرشيف"
If Len(Dir(curPath, vbDirectory)) = 0 Then
MkDir (curPath) 
Else
MsgBox "الملف موجود مسبقا"
End If

التعليمة dir تقوم بالتأكد من وجود المجلد في المسار المحدد من عدمه

[mr steev]

جزاك الله خيرا

تمام

 

Make Backup OK.rar

تم تعديل ديسمبر 31, 2016 بواسطه mr steev

[صالح حمادي]

آمين يا رب العالمين و لك بالمثل