منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود انشاء مجلد باسم عام جديد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 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"
مشكور
لكن اسم العام في سجل في قاعدة البيانات
واريد ان ينشأ المجلد حسب العام المسجل في السجل
السلام وعليكم

تمام هذه الاكواد تلبي الغرض

قم بتحميل أسم العام من سجل قاعدة البيانات عن طريق الاستعلام SQL ثم ضع أسم العام في متغير ووضعه بدل أسم العام الذي قي الكود السابق كتالي:

Dim YearStr AS String

Call MakeSureDirectoryPathExists(App.Path & "\" & YearStr)

أن لم تفهم الطريقة ضع المشروع مع قاعدة البيانات في المرفقات وسأقوم أنا بالتعديل عليه

أو تواصل معي على الجوال (700891249-738033671)
ألأوقات التي أكون فيها متفرغ بعد صلاة العشاء الساعة 8:30 أو 9:30 وأنا تحت أمرك
مشكور
سوف احاول واذا عجزت سارفع لك المشروع

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

اذا امكنك تعمل لي تطبق مشروع .
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , تم عمل مثال صغير يشرح لك الطريقة .
اشكرك الشكر الجزيل
ربنا يوفقك في اعمالك

تحياتي لك ,,
الحمد لله تم تطبيق العمل مع برنامجي وشتغل ممتاز
الله يعطيكم العافية
السلام عليكم ورحمة الله وبركاته

احتجت نقل مجلد باسم copy
يوجد في نفس مجلد البرنامج

واضفت هذا الكود لم يتم النقل

lRet = CopyFile(App.Path & "\copy", App.Path & "\" & zYear & "\copy", False)

If lRet Then
MsgBox "تم نسخ المجلد copydb بنجاح"
Else
MsgBox "لم يتم نسخ المجلد copy"
End If

ارجو مساعدتي
الصفحات : 1 2