البحث عن ملف فى الجهاز واستدعاء Find

استدعاء البحث الخاص بـ ويندوز

أكتب التالي في قسم التصاريح

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10

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

Call ShellExecute(Me.hwnd, "find", "D:\", vbNullString, vbNullString, SW_SHOWNORMAL)

طريقة اخرى للبحث عن ملف داخل الجهاز

اكتب التالي في موديل Module

Declare Function SearchTreeForFile Lib "IMAGEHLP.DLL" _
      (ByVal lpRootPath As String, _
      ByVal lpInputName As String, _
      ByVal lpOutputName As String) As Long

Public Const MAX_PATH = 260

Public Function FindFile(RootPath As String, FileName As String) As String
      Dim lNullPos As Long
      Dim lResult As Long
      Dim sBuffer As String

      On Error GoTo FileFind_Error

      sBuffer = Space(MAX_PATH * 2)

      lResult = SearchTreeForFile(RootPath, FileName, sBuffer)

      If lResult Then
            lNullPos = InStr(sBuffer, vbNullChar)
            If Not lNullPos Then
                  sBuffer = Left(sBuffer, lNullPos - 1)
            End If
            FindFile = sBuffer
      Else
            FindFile = vbNullString
      End If

      Exit Function

FileFind_Error:
      FindFile = vbNullString
End Function

للبحث عن ملف أكتب التالي في أي مكان تريد، ولا تنس ان تحدد اسم الملف والقرص...

("MsgBox FindFile("c:\", "calc.exe