للبحث عن ملف داخل الجهاز

اكتب التالي في موديل 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