Rubrik: System/Windows · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 17.10.03 |
Suchen-Dialog des Windows-Explorers aufrufen Mit der ShellExecute-API lässt sich mal eben schnell der Suchen-Dialog des Windows-Explorers öffnen. | ||
Autor: Dieter Otter | Bewertung: | Views: 21.698 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe der ShellExecute-Funktion aus dem Windows-API lässt sich mal eben schnell der Suchen-Dialog des Windows-Explorers öffnen. Optional kann man sogar festlegen, welches Verzeichnis als Start-Ordner für die Suche verwendet werden soll.
Option Explicit ' benötigte API-Deklarationen 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 Private Const SW_SHOWNORMAL = 1 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWMAXIMIZED = 3
Beispiel 1:
' Suchen-Dialog mit aktuellen Verzeichnis als ' Start-Ordner aufrufen ShellExecute Me.hWnd, "find", "", "", "", SW_SHOWNORMAL
Beispiel 2:
' Suchen-Dialog mit gezielter Verzeichnisvorgabe ' maximiert starten ShellExecute Me.hWnd, "find", "d:\temp", "", "", SW_SHOWMAXIMIZED