Ejemplos usando el Api de windows para Visual basic

134 - Comando find de ShellExecute

Volver al Listado Api - Anterior - Siguiente

Ejemplo para abrir la ventana de windows para buscar en un path determinado del sistema mediante la función Api ShellExecute con el comado Find.

Gráfico de ejemplo

vista de la ventana de resultado de búsuqeda de windows

Código en un formulario

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

Buscar en Recursos vb