ich möchte über ein UserFor einen Dateinamen mit Wildcards suchen. Im ersten Anlauf habe ich das über ein Makro hier aus dem Forum gemacht. Das Problem war jedoch, dass Excel in der Zeit der Suche nicht zur verfügung steht.
Nun habe ich mir gedacht, man könne es mit der Standard Windows Suche lösen. Ich habe ein Makro von Tom gefunden.
Die Sache funktioniert perfekt, weiss aber jemand zufällig, ob es möglich ist den Suchbegriff auch gleich mit and das Suchfeld zu übergeben. Das angegebene Laufwerk wird in der Suche korrekt angesteuert:
Option Explicit
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
Sub Windows_Suchen_Dialog_anzeigen()
Dim strStartPath As String
Dim hwnd As Long
ShellExecute hwnd, "find", strStartPath, "", "C:\", SW_SHOWNORMAL
Exit Sub
End Sub
Vielen Dank schon mal für Eure Hilfe
viele Grüße
Chris