Windows-Dateisuche per VBA starten

[cyberchris]

Hallo,

ich möchte die Windows-Dateisuche mit Parametern per VBA starten.
Hierzu habe ich bereits einiges gegoogelt, aber nichts brauchbares gefunden.

Ich benötige keine separate Suche mittels Formular o. ä., sondern ich möchte einfach zu einem Datensatz die entsprechenden Dokumente suchen lassen.

Ist es möglich per VBA die Windowssuche anzusprechen, mit Parametern (Verzeichnis u. Begriff) zu füllen und die Suche gleich starten zu lassen?

Vielen Dank
Gruß Christoph

[bahasu]

Hallo Christoph,

vielleicht hilft: http://support.microsoft.com/kb/185476

Harald

[cyberchris]

Hi,

danke - aber das ist nicht genau das was ich suche.
Ich suche einen einfachen Code um die klassische Windowssuche aufzurufen und mit Parametern zu starten. Mehr eigentlich nicht.

Gruß Christoph

[bahasu]

Hi

http://www.office-loesung.de/ftopic191860_0_0_asc.php

Harald

[cyberchris]

Mit den Beispielen von dem letzten Link geht es irgendwie nur um Ordnersucher oder so.
Da wird nicht die Windowssuche geöffnet.

Ich werde wohl doch nochmal googlen müssen.

Gruß Christoph

PS: Ich möchte damit nur die Auflistung der gefunden Dateien anzeigen - mehr nicht. Deshalb möglichst auch keine aufwändige Programmierung mit Forms o. so.
Sind alles PDF-Dateien.

[database]

Hallo,

vielleicht hilft das:

http://www.vbarchiv.net/tipps/details.php?id=885

[cyberchris]

Hallo,

hört sich gut an und habe es auch gleich ausprobiert nur leider ohne Erfolg.

Beim Ausführen kommt die Fehlermeldung "Unzulässige Verwendung des Schlüsselworts Me" (bei ShellExecute)
Was stimmt da nicht?

PS: Habe es für den Test in Excel 2010 über einen Button starten lassen.

Danke & Gruß Christoph



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


Sub suchen()

' Suchen-Dialog mit gezielter Verzeichnisvorgabe
' maximiert starten
ShellExecute Me.hwnd, "find", "c:\temp", "", "", SW_SHOWMAXIMIZED

End Sub

[DF6GL]

Hallo,


vermutlich steht die Sub Suchen() in einem Standardmodul und nicht in einem Form-Klassenmodul...


ShellExecute 0, "find", "c:\temp", "", "", SW_SHOWMAXIMIZED

[cyberchris]

Hallo,

Danke! Ja, das stimmt.
Jetzt gehst.

Habe aber noch eine letzte Frage.
Da ich den Syntax nicht kenne, bzw. nicht gang verstehe schaffe ich es nicht bereits den Suchbegriff zu übergeben und die Suche gleich zu starten...automatisch.

Danke
gruß Christoph

[daolix]

ich glaube das geht nicht, evtl nur mit etwas Api, aber das willst du ja nicht weil du nur ganz kurzen Code haben willst.

[cyberchris]

Hallo,

und wenigstens den Suchbegriff.
Wenn das Verzechnis übergeben werden kann, müsste es doch auch möglich sein den Suchbegriff mitzugeben?

Danke
gruß Christoph

[daolix]

Nö, ich glaube auch das geht nicht.