كيف تصنع أداة بحث

فلنبدأ:

1-كالعاده أفتح البرنامج

2-ضع أداة "ListBox"وأداة الزر"command Button"

3-أدخل على لوحة البرمجة الخاصة بأداة"command"واكتب فيها:

 

Dim sFileFileName As string
sFileName=Dir$("C:\myfile\*.TXT")
Do While Len (sFileName)
List1.AddItem sFileName
sFileName = Dir$
Loop

ملاحضه مهمه:أن الأسم"myfile"يجب أن تغيره لأن هذا مجرد مثال لو جربته

ماراح يطلعايك شئ لذلك غيره وضعه على أسم مجلد خاص فيك على":C"

وتستطيع تغير الصيغة الموجوده في الكود السابق إلى مثلا:

sFileName=Dir$("C:\Windows\*.EXE")

4-جرب البرنامج هل هو ممتاز أم ضعيف :lol: