تعبئة Combo1.additem بملفات مجلد

الأخ الفاضل ...

هل يناسبك أستخدام ListBox؟

لو نعم، يمكنك إستخدام الأدآة FileListBox، فهى أسهل ...

شكراً

Eng. Usama El-Mokadem كتب:

الأخ الفاضل ...

هل يناسبك أستخدام ListBox؟

لو نعم، يمكنك إستخدام الأدآة FileListBox، فهى أسهل ...

شكراً

مشكور على الاستجابة السريعة .

ياريت لو تفهمني كيف اقوم بتعبئة اللست بعدة أمتلة ومشكور جدا على الاستجابة السريعة مرة اخرى

كما ذكر الاخ اسامة يوجد اداة في صندوق الادوات للفيجوال بيسك والتي هي Filelistbox يمكنك استخدامها .

ولتعبئتها يمكن استخدام الخاصية path

Private Sub Form_load()
File1.Path = "c:\Dossier"
End Sub

راجع المثال المرفق

FilesList.zip

أخي الكريم ، إذا كنت ترغب في ملء آداة الـ ComboBox أو ListBox بكافة الملفات الموجودة بغلاف معين يمكنك بالكود التالي :

Dim strDir As String

strDir = Dir("C:\MyFolder\*.*")

Do While strDir <> ""
	 List1.AddItem strDir
	 strDir = Dir
Loop

وليست هذه الطريقة الوحيدة ، بل هناك طرق مختلفة ، ولكن شركة Microsoft أنشأت آداة Drive و آدا FileListBox ، تسهل علي المبرمج إجراء أكواد متعددة !!!!

ولكن يجب علي المبرمج معرفة العديد من الطرق لأن هناك إحتياجات أخري تتطلب منا ذلك .

شكراً

شكرا لكم لقد ساعتموني كتيرا في مشروعي. شكرا جدا .

بعد الردود الجميلة التي أفدتموني بها توصلت الى النتيجة التالية - وهي شغالة مع الست بوكس والكومبو بوكس - :

Private Sub Form_Load()
Dim a As String
Dim strDir As String
a = (App.Path) & "\" & ("skins\*.*")

strDir = Dir(a)

Do While strDir <> ""
     List1.AddItem strDir
     Combo1.AddItem strDir
     strDir = Dir
Loop
End Sub

شكرا لكم على المساعدة

وهدا تطبيق للمشروع -اقصد المشورع نفسه-

SKin_Main.rar