السلام عليكم و رحمة الله و بركاته
سؤالي هو طلب كود ينشئ مجلد في المسار
E:\ABC
و ينشئ مجلد داخله اسمه متعلق بالسنة مثلا
E:\ABC\2018
لو كانت السنة 2018
E:\ABC\2019
لو كانت السنة 2019
و ذلك ليتم حفظ النتائج بحسب العام الذي استخرجت فيه
وشكرا مقدما لكم و جعله الله في ميزان حسناتكم
(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))
مشكور يا دكتور ...............جاري التجريب .................. و نجح
و اطمع بتكملة الكود حتى يتم حفظ ملف ما( اوتوكاد وورد .........) الى داخل هذا المجلد (السنة) اي كود حفظ
تقديري لك و لكل اعضاء هذا الموقع الرائع بدون استثناء
مشكور الاخ على اعطائك الكود ولكنه
كبير نوعا ما
اليك كود خفيف ينشئ مجلد جديد
استخدم الدالة Mkdir
مثال اريد مجلد جديد في المسار c باسم Hakim
""Mkdir
ضع المسار كامل داخل تلك الفتحتين فقط ولاتنس اسم المجلد في المسار هكذا
"c / : hakim"
وشكرا.
