| Код |
Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Form_Load()
Dim tempStr As String, Ret As Long
tempStr = String(MAX_PATH, 0)
Ret = SearchTreeForFile("c:\", "explorer.exe", tempStr)
If Ret <> 0 Then
MsgBox "Файл найден в " + Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1)
Else
MsgBox "Файл не найден"
End If
End Sub
|
|