+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24571)
طلب كود ينشئ مجلد - gharib - 17-04-18
السلام عليكم و رحمة الله و بركاته
سؤالي هو طلب كود ينشئ مجلد في المسار
E:\ABC
و ينشئ مجلد داخله اسمه متعلق بالسنة مثلا
E:\ABC\2018
لو كانت السنة 2018
E:\ABC\2019
لو كانت السنة 2019
و ذلك ليتم حفظ النتائج بحسب العام الذي استخرجت فيه
وشكرا مقدما لكم و جعله الله في ميزان حسناتكم
RE: help me ya shabab - dr.mostashar - 18-04-18
(17-04-18, 11:48 PM)gharib كتب : السلام عليكم و رحمة الله و بركاته
سؤالي هو طلب كود ينشئ مجلد في المسار
E:\ABC
و ينشئ مجلد داخله اسمه متعلق بالسنة مثلا
E:\ABC\2018
لو كانت السنة 2018
E:\ABC\2019
لو كانت السنة 2019
و ذلك ليتم حفظ النتائج بحسب العام الذي استخرجت فيه
وشكرا مقدما لكم و جعله الله في ميزان حسناتكم
تفضل أخي
ضع هذا الكود في زر command
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("E:\ABC")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("E:\ABC\" & Year(Date))
RE: help me ya shabab - gharib - 18-04-18
مشكور يا دكتور ...............جاري التجريب .................. و نجح
و اطمع بتكملة الكود حتى يتم حفظ ملف ما( اوتوكاد وورد .........) الى داخل هذا المجلد (السنة) اي كود حفظ
تقديري لك و لكل اعضاء هذا الموقع الرائع بدون استثناء
RE: طلب كود ينشئ مجلد - abdelkader - 20-05-18
مشكور الاخ على اعطائك الكود ولكنه كبير نوعا ما
اليك كود خفيف ينشئ مجلد جديد
استخدم الدالة Mkdir
مثال اريد مجلد جديد في المسار c باسم Hakim
""Mkdir
ضع المسار كامل داخل تلك الفتحتين فقط ولاتنس اسم المجلد في المسار هكذا
"c / : hakim"
وشكرا.
RE: طلب كود ينشئ مجلد - MicroDoha - 23-08-18
مشكووور على الكود
gharib