لدي مشكلة واريد من الجميع المشاركة
لدي كومبو بوكس واريد تعبئته بأسماء المجلدات الموجودة في مجلد البرنامج ..
ولكن اريد فقط الاسماء وليس المسار كاملا ...
جربت الكود التالي
Dim XDirectories() As String Dim X As Integer XDirectories = Directory.GetDirectories(Directory.GetCurrentDirectory()) For X = 0 To XDirectories.Length - 1 cmbDir.Items.Add(XDirectories(X)) Next
ولكن اعاد لي المسارات كاملة
فمالحل ...؟؟؟
السلام عليكم ورحمه الله وبركاته
اولا يا اخي اذهب الى نافذه المشاريع Solution explorer
و اضغط على Refrences بالزر الايمن واختر Add refrence
من التبويب Com ابحث عن العنصر Microsoft Scripting Runtime
واضغط عليه مرتين بالرز الايسر
واضغط Ok
بعدها انشئ اداه Combobox جديده
ثم اضف زر الى النافذه
اضف هذا الكود الى الزر
وتغير Combobox1 الى الاسم الذي تريده ايضا
Dim Dir() As String
Dir = Directory.GetDirectories(Application.Startuppath)
Dim I As Integer
For I = 0 To Dir.GetUpperBound(0)
Dim H As New Scripting.FileSystemObject
ComboBox1.Items.Add(H.GetFolder(Dir(I)).Name)
Next
وبعدها ادعيلي :D :D :D :D
ولو احتجت شرح للكود فانا حاضر
والسلام عليكم ورحمه الله وبركاته
والسلام عليكم ورحمه الله وبركاته
تم تعديل هذه المشاركة بواسطة o.mohammed في 8 نوفمبر 2005 في 01:58
تفضل أخي الكريم
Dim Dirs() As String = Directory.GetDirectories("C:\")
Dim I As Integer
Dim Dir As String
For Each Dir In Dirs
ComboBox1.Items.Add(Dir)
Nextطبعا إذا لم ترغب في ظهور اسم القرص تستبدل سطر الـ ComboBox1 بـالسطر التالي
ComboBox1.Items.Add(Mid(Dir, 4))
لا تنسانا من صالح الدعاء
اللهم اغفر لي و لوالدي و للمؤمنين يوم يقوم الحساب
لا إله إلا الله عدد ما كان و عدد ما يكون و عدد الحركات و السكون
اخوي o.mohammed
شكرا لك الكوداشتغل ولله الحمد ..
بس ياليت تشرحلي اذا سمحت حتىتكون الفائدة اكبر ..
الله يوفقك ويجزيك خير
اخوي بن ملعاط
شكرا لك
جربت الكود والنتيجة كانت مثل نتيجة الكود اللي عملته انا ..
الله يوفقك ويجزيك خير
هذا الموضوع مغلق.