Foro de elhacker.net

Option Explicit  
' Declaración del api ShellExecute   
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  
  
'Constantre para el modo en que se abre la ventana: Normal   
Private Const SW_SHOWNORMAL = 1   
 
Private Sub Buscar_Windows(path As String)   
       
    ShellExecute hwnd, "Find", path, _   
                        vbNullString, _   
                        vbNullString, _   
                        SW_SHOWNORMAL   
  
End Sub  
  
Private Sub cmdFind_Click()   
  
'Abre la ventana de búsqueda en el directorio de windows   
Buscar_Windows "c:\windows"  
End Sub