اضافة فولدر جديد

[Akram Galal]

السلام عليكم ورحمة الله وبركاتة

اريد عمل زر يقوم بإنشاء فولدر جديد في المكان الذي اريده وكتابة اسم الفولدر الذي اريده

 

واريد زر قوم بفتح اي فولدر اختارة

جزاكم الله خيرا

[ياسر خليل أبو البراء]

الاخ الفاضل أكرم

لإنشاء مجلد باسم Test مثلا على البارتشن C قم بتطبيق هذا الكود

يمكنك تغيير اسم المجلد أو المسار كما تحب

Sub Test()
    If Len(Dir("C:\Test", vbDirectory)) = 0 Then
        MkDir "C:\Test"
    End If
End Sub

[الجموعي]

بعد إن الأستاذ القدير / ياسير خليل

وإثراء للموضوع

تفضل الكود التالي

اسم المجلد الجديد من قيمة الخلية A1

Sub CreateFolders()
  CreateObject("shell.application").Namespace("C:").NewFolder Range("A1").Value
End Sub

[Akram Galal]

اخواني الأعزاء

جزاكم الله خيرا

ممكن ارفاق ملف للتوضيح

منفضلكم

[Akram Galal]

أحبتي في الله

جزاكم الله خيرا

عمل رائع

ولكني اريد فورمة أختار منها مكان الفولدر واسمه

ولكم جزيل الشكر

[Akram Galal]

للرفع