20-04-17, 09:10 PM (آخر تعديل لهذه المشاركة : 20-04-17, 09:14 PM {2} بواسطة ياسر عبد الكريم.)
وعليكم السلام ورحمة الله وبركاته
أخي سليمان إذا كنت تقصد كود إنشاء مجلد في مسار معين هذا هو الكود
Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
هذه دالة تقوم بالتأكد من مسار معين إذا كان موجود هذا المجلد في المسار تواصل وأن لم تجده تقوم بإنشائة كتالي
ضع الدالة في الإجراء العام
ثم في الكود إستدعي الدالة كتالي :
Call MakeSureDirectoryPathExists(App.Path & "\" & "2017")
طبعاً تنشئ المجلد في مسار البرنامج
ولنسخ الملفات من موقع إلى موقع إستخدم الدالة المرفقة مع الفيجوال
VBA.FileCopy "C:\ALHUMIDI\DataBase.mdb", App.Path & "\2017\DataBase.mdb"
أو لنقل
name "C:\ALHUMIDI\DataBase.mdb" As App.Path & "\2017\DataBase.mdb"
السلام عليكم و رحمة و بركاته
اخي النت عندي ضعيف و المشروع كبير
المطلوب اعمل لي مشروع مصغر ينفذ لي المطلوب
اريد الكود كل عام ينشأ مجلد باسم العام المسجل في قاعدة البيانات
ثم كود اخر يعمل نسخة من الملفات التي في الصورة و يضعها في المجلد الذي تم انشاءه