18-04-18, 12:16 AM
(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))