[gharib]

السلام عليكم و رحمة الله و بركاته
سؤالي هو طلب كود ينشئ مجلد في المسار   
E:\ABC
و ينشئ مجلد داخله اسمه  متعلق بالسنة              مثلا

E:\ABC\2018


لو كانت السنة 2018

E:\ABC\2019

لو كانت السنة 2019

و ذلك ليتم حفظ  النتائج بحسب العام الذي استخرجت فيه

وشكرا مقدما لكم و جعله الله في ميزان حسناتكم

[dr.mostashar]

(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))

[gharib]

مشكور يا دكتور ...............جاري التجريب .................. و نجح

و اطمع بتكملة الكود حتى يتم حفظ ملف ما( اوتوكاد   وورد     .........) الى داخل هذا المجلد (السنة) اي كود حفظ

تقديري لك و لكل اعضاء هذا الموقع الرائع بدون استثناء

[abdelkader]

مشكور الاخ على اعطائك الكود ولكنه كبير نوعا ما 
اليك كود خفيف ينشئ مجلد جديد

استخدم الدالة Mkdir

مثال اريد مجلد جديد في المسار c باسم Hakim

""Mkdir

ضع المسار كامل داخل تلك الفتحتين فقط ولاتنس اسم المجلد في المسار هكذا

 "c / : hakim" 

وشكرا.

[MicroDoha]

مشكووور على الكود     gharib