[RaggiTech]

كاتب الموضوع : AhmedEssawy

*** الكود منقول من المنتدى القديم .


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

كود :

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
'Allocate buffer
sBuffer = Space(MAX_PATH * 2)
'Find the file
lResult = SearchTreeForFile(RootPath, FileName, sBuffer)
'Trim null, if exists
If lResult Then
lNullPos = InStr(sBuffer, vbNullChar)
If Not lNullPos Then
sBuffer = Left(sBuffer, lNullPos - 1)
End If
'Return filename
FindFile = sBuffer
Else
'Nothing found
FindFile = vbNullString
End If
Exit Function
FileFind_Error:
FindFile = vbNullString
End Function

وفي زر الأمر

كود :

Folder = FindFile("d:\", "win.com")

حيث ما بين علامتي التنصيص الأولى المكان ، والثانية اسم الملف وامتداده
ثم نقوم بتشغيله

كود :

Shell Folder,VbNormalFoucs