التعامل مع الحاسب بالاكسيل

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

MkDir

كود بسيط لانشاء فولدر او مسار على المسار الذى يوجد به الملف أسمه Hady

Sub Make_Folder()

       MkDir "Hady"

End Sub

و لانشاء فولدر او مسار على القرص C أسمه Hady بالأمر

Sub Make_Folder()

       MkDir "C:\Hady"

End Sub

و حتى لا يتعطل البرنامج اذا تكرر الاسم يمكن اضافه السطر

On Error Resume Next

مرفق ملف

السلام عليكم

Make Folder.rar

تم تعديل أبريل 10, 2010 بواسطه هادى محمد المامون سالم

[هشام شلبى]

السلام عليكم

========

اخى العزيز "استاذنا هادى"

معلومة قمة فى الجمال

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

روعة أخي الحبيب هادي

بيد أن إنشاء مجلد بنفس المسار لم يكتمل معي لسبب أو لآخر

أودأن أعرف السبب

أخوك وتلميذك أبو البراء

[يحيى حسين]

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

جزاك الله كل خير أخي هادي

إضافة إلى هذا الأمر يوجد أمر أخر و هو

RmDir

لحذف الملف الذي أنشئته

Sub Make_Folder()

	On Error Resume Next

	RmDir "C:\Hady"

End Sub

 

=======

لقد نسينا الدوس و أوامره

[amhateb]

الدوس هو أصل الكمبيوتر

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

فى المشاركه رقم (1) لانستطيع تغيير اسم المسار الذى تم انشاءه و سنحاول التحكم فى اسم المسار بانفسنا أو بوضع اسم للمسار الذى نريد انشاءه فى الخليه (A1) و من السهل تغييره اذا اردنا,

1 - سنضع موضع الملف غلى القرص الصلب المسار بدلا من اسم المسار السابق Hady(بين علمتى تنصيص)

2 - نضيف علامه &

3 - الخليه التى نريد استخدامها لوضع الاسم الجديد (A1) مثلا

و اليكم الكود

Sub Make_Folder()

    On Error Resume Next

    MkDir "C:\" & [A1].Text

End Sub

مرفق ملف

السلام عليكم

Make Folder_01.rar

تم تعديل أبريل 12, 2010 بواسطه هادى محمد المامون سالم

[احمدزمان]

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

استاذ/هادي

شكرا لك و جزاك الله كل خير

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

اخى احمدزمان اشكرك و فى انتظارك قريبا ان شاء الله

اخى هشام شلبى شكرا على المرور

اخى YasserKhalil اتمنى ان تكون المشكله تم حلها فى المشاركه رقم 6

اخى يحيى حسين شكرا على المرور

اخى amhateb شكرا على المرور

السلام عليكم