Microsoft Access Programmierrezepte

R12.43 Den Windows Suchassistenten verwenden

Aufgabe

Sie möchten statt einer eigenen Lösung auf die schon vorhandenen Microsoft-Tools zum Suchen von Dateien zurückgreifen (Suchassistent).

Lösung

Verwenden Sie die API-Funktion ShellExecute und das Verb »find«, können Sie direkt den Windows Suchassistenten aufrufen.

Oberfläche

Lediglich ein einfaches Formular, zwei Befehlsschaltflächen und ein Textfeld.

Quelltext

Option Explicit
Option Compare Database

Einbinden der API-Funktion:

Private Const SW_SHOW = 1 Private Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShellExecuteA& Lib "shell32.dll" (ByVal hwnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) ...