كيف استدعي باحث الوندوز

أستدعاء باحث الويندوز مش هيظهر نتائج البحث جوا البرنامج بتاعك :)

أستخدم دوال الـ API للبحث ( FindFirstFile و FindNextFile و FindClose ) , مثال : ULTIMATE FILE SEARCHER

خي الكريم فقط أريد كود الإستدعاء

إذا كان ممكن تساعدني وتوجهني للباحث

فلك مني الشكر والمنة

ملهاش اى قيمة بس براحتك :

'Project menu -> References
'Select Microsoft Shell Controls And Automation
'Press OK

Option Explicit
Dim wShell As New Shell32.Shell

Private Sub cmdShowFind_Click()
	wShell.FindFiles
End Sub

أخي الكريم

أليس من الممكن استدعاء الباحث مباشرة

يعني أمر shell ثم اسم الملف

مثل كذا

Private Sub Command1_Click()

Shell "c:\\windows\system32\calc.EXE", vbNormalFocus

End Sub

باحث الويندوز هو الـ Explorer نفسه.

ايه المشكلة مع الحل اللى فوق ؟!

ما فيه أي مشكلة

الله يحفظك ويديمك

تسلم

مشكور

بس كيف أكتب الكود مباشرة

زى ما أنا كاتب فوق , من قائمة Project أختر References و نشط الخيار Microsoft Shell Controls And Automation و أضغط OK و أكتب الكود اللى فوق.

ربما تجد ما تبحث عنه في هذا المثال

Search.rar