+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اريد كود انشاء مجلد باسم عام جديد (/showthread.php?tid=20090)
الصفحات:
1
2
اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 20-04-17
السلام عليكم ورحمة الله وبركاته
اريد كود لانشاء عام جديد يوجد في قاعدة البيانات
ويكون المجلد في نفس مجلد البرنامج
وايضا اريد كود لنقل ملفات إلى المجلد
راجو المساعدة
RE: اريد كود انشاء مجلد باسم عام جديد - ياسر عبد الكريم - 20-04-17
وعليكم السلام ورحمة الله وبركاته
أخي سليمان إذا كنت تقصد كود إنشاء مجلد في مسار معين هذا هو الكود
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"
RE: اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 23-04-17
مشكور
لكن اسم العام في سجل في قاعدة البيانات
واريد ان ينشأ المجلد حسب العام المسجل في السجل
RE: اريد كود انشاء مجلد باسم عام جديد - ياسر عبد الكريم - 23-04-17
السلام وعليكم
تمام هذه الاكواد تلبي الغرض
قم بتحميل أسم العام من سجل قاعدة البيانات عن طريق الاستعلام SQL ثم ضع أسم العام في متغير ووضعه بدل أسم العام الذي قي الكود السابق كتالي:
Dim YearStr AS String
Call MakeSureDirectoryPathExists(App.Path & "\" & YearStr)
أن لم تفهم الطريقة ضع المشروع مع قاعدة البيانات في المرفقات وسأقوم أنا بالتعديل عليه
أو تواصل معي على الجوال (700891249-738033671)
ألأوقات التي أكون فيها متفرغ بعد صلاة العشاء الساعة 8:30 أو 9:30 وأنا تحت أمرك
RE: اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 23-04-17
مشكور
سوف احاول واذا عجزت سارفع لك المشروع
RE: اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 24-04-17
السلام عليكم و رحمة و بركاته
اخي النت عندي ضعيف و المشروع كبير
المطلوب اعمل لي مشروع مصغر ينفذ لي المطلوب
اريد الكود كل عام ينشأ مجلد باسم العام المسجل في قاعدة البيانات
ثم كود اخر يعمل نسخة من الملفات التي في الصورة و يضعها في المجلد الذي تم انشاءه
اذا امكنك تعمل لي تطبق مشروع .
RE: اريد كود انشاء مجلد باسم عام جديد - Ahmed_Mansoor - 25-04-17
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , تم عمل مثال صغير يشرح لك الطريقة .
RE: اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 30-04-17
اشكرك الشكر الجزيل
ربنا يوفقك في اعمالك
تحياتي لك ,,
RE: اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 30-04-17
الحمد لله تم تطبيق العمل مع برنامجي وشتغل ممتاز
الله يعطيكم العافية
RE: اريد كود انشاء مجلد باسم عام جديد - suliman alahdl - 30-04-17
السلام عليكم ورحمة الله وبركاته
احتجت نقل مجلد باسم copy
يوجد في نفس مجلد البرنامج
واضفت هذا الكود لم يتم النقل
lRet = CopyFile(App.Path & "\copy", App.Path & "\" & zYear & "\copy", False)
If lRet Then
MsgBox "تم نسخ المجلد copydb بنجاح"
Else
MsgBox "لم يتم نسخ المجلد copy"
End If
ارجو مساعدتي