|
اريد كود انشاء مجلد باسم عام جديد
|
20-04-17, 05:54 PM
السلام عليكم ورحمة الله وبركاته
اريد كود لانشاء عام جديد يوجد في قاعدة البيانات ويكون المجلد في نفس مجلد البرنامج وايضا اريد كود لنقل ملفات إلى المجلد راجو المساعدة 
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"
ALHUMIDI Soft
تم الشكر بواسطة: السيد الغالي , Ahmed_Mansoor , Ahmed_Mansoor , sendbad100 , sendbad100 , عبد العزيز البسكري , عبد العزيز البسكري , suliman alahdl
23-04-17, 06:06 PM
مشكور
لكن اسم العام في سجل في قاعدة البيانات واريد ان ينشأ المجلد حسب العام المسجل في السجل
23-04-17, 09:03 PM
(آخر تعديل لهذه المشاركة : 23-04-17, 09:10 PM {2} بواسطة ياسر عبد الكريم.)
السلام وعليكم
تمام هذه الاكواد تلبي الغرض قم بتحميل أسم العام من سجل قاعدة البيانات عن طريق الاستعلام SQL ثم ضع أسم العام في متغير ووضعه بدل أسم العام الذي قي الكود السابق كتالي: Dim YearStr AS String Call MakeSureDirectoryPathExists(App.Path & "\" & YearStr) أن لم تفهم الطريقة ضع المشروع مع قاعدة البيانات في المرفقات وسأقوم أنا بالتعديل عليه أو تواصل معي على الجوال (700891249-738033671) ألأوقات التي أكون فيها متفرغ بعد صلاة العشاء الساعة 8:30 أو 9:30 وأنا تحت أمرك
ALHUMIDI Soft
تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري , عبد العزيز البسكري , suliman alahdl
23-04-17, 10:35 PM
مشكور
سوف احاول واذا عجزت سارفع لك المشروع تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
 السلام عليكم و رحمة و بركاته اخي النت عندي ضعيف و المشروع كبير المطلوب اعمل لي مشروع مصغر ينفذ لي المطلوب اريد الكود كل عام ينشأ مجلد باسم العام المسجل في قاعدة البيانات ثم كود اخر يعمل نسخة من الملفات التي في الصورة و يضعها في المجلد الذي تم انشاءه اذا امكنك تعمل لي تطبق مشروع .
المشاركات : 2,008
المواضيع 58 الإنتساب : Oct 2014 السمعة : 1,006 الشكر: 30850
تم شكره 22871 مرات في 2187 مشاركات 
25-04-17, 11:33 AM
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , تم عمل مثال صغير يشرح لك الطريقة . تم الشكر بواسطة: Amir_Alzubidy , sendbad100 , sendbad100 , suliman alahdl , عبد العزيز البسكري
30-04-17, 02:22 PM
اشكرك الشكر الجزيل
ربنا يوفقك في اعمالك تحياتي لك ,, تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy , عبد العزيز البسكري , عبد العزيز البسكري
30-04-17, 09:59 PM
الحمد لله تم تطبيق العمل مع برنامجي وشتغل ممتاز
الله يعطيكم العافية تم الشكر بواسطة: Amir_Alzubidy , عبد العزيز البسكري , عبد العزيز البسكري , Ahmed_Mansoor , Ahmed_Mansoor
30-04-17, 11:29 PM
السلام عليكم ورحمة الله وبركاته
احتجت نقل مجلد باسم copy يوجد في نفس مجلد البرنامج واضفت هذا الكود لم يتم النقل lRet = CopyFile(App.Path & "\copy", App.Path & "\" & zYear & "\copy", False) If lRet Then MsgBox "تم نسخ المجلد copydb بنجاح" Else MsgBox "لم يتم نسخ المجلد copy" End If ارجو مساعدتي تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
|
|
|
