Dateisuche

Hallo Ihr VBA - Profis
... vielleicht eine blöde Frage aber ....
ich suche eine Möglichkeit, ab einer Excel-Arbeitsmappe Dateien (Word, Excel, PDF, Doc, PPT, PPS etc.) zu suchen und mir diese in einem Tabellenblatt aufzulisten.
Und zwar stell ich mir das so vor:
Ähnlich wie bei der in Windows integrierten Suche, soll der User einen Pfad angeben können in welchem er nach einem bestimmten Text suchen will.
Weiter soll er dann einen Suchtext (auch mit Platzhalter etc.) eintippen können.
Es sollen dann im angegebenen Laufwerks- / oder Netzwerkspfad alle Dateien und Ordner nach diesem Text durchsucht werden (auch Unterordner)
Alle gefundenen Dateien sollen dann in einem Excelblatt aufgelistet werden.
Die gefundenen Datein sollen sich dann über einen Hyperlink direkt aus diesem Excel-Blatt raus öffnen lassen.
geht das überhaupt ?
Wer hat mir entsprechende Lösungsansätze oder gar ein Beispiel ?
HERZLICHEN DANK IM VORAUS !!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateisuche

27.02.2009 11:40:31

Hajo_Zi

AW: Dateisuche

27.02.2009 11:51:06

Pascal

AW: Dateisuche

27.02.2009 13:36:30

Pascal

AW: Dateisuche

27.02.2009 14:15:30

Tino

AW: Dateisuche

27.02.2009 14:52:50

Pascal

AW: Dateisuche

27.02.2009 15:37:11

Tino

mit Unterordner

27.02.2009 16:29:02

Tino

AW: @Tino Dateiliste mit Unterordner

27.02.2009 20:20:31

robert

@robert

27.02.2009 20:43:39

Tino

AW: @robert

27.02.2009 20:50:16

robert

AW: @robert

27.02.2009 20:58:34

Tino

AW: @Tino

27.02.2009 21:16:36

robert

Fehler gefunden

27.02.2009 21:19:32

Tino

@robert, Danke...

27.02.2009 21:24:34

Tino

AW: Tino, Danke...funkt!!! owT

28.02.2009 07:46:23

robert

AW: Fehler gefunden

02.03.2009 07:13:22

Pascal

AW: @Pascal-Dateisuche-kein Bedarf mehr?

28.02.2009 09:08:30

robert

Hi Again
Also.... Dein Beispielscode ist absolut genial nur nicht das was ich eigentlich suchte
Ich suche vielmehr die Möglichkeit, innerhalb eines vorher ausgewählten Dateipfades nach einem Begriff zu suchen.
Habe dazu folgenden Lösungsansatz noch gefunden:
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


Mein Problem ist nun aber, dass ich nicht die Standard-Suchansicht von Windows dazu verwenden möchte, sondern am besten eine UserForm einblenden möchte, auf der User einen Pfad auswählt.

Weiter soll auf der UserForm ein Textfeld stehen, wo der gesuchte Text für die Volltextsuche eingetippt werden kann.

dann zuunterst sollen die gefundenen Dateinamen so ausgegeben werden, dass sich diese durch einen Doppelklick darauf öffnen lassen.

Geht das irgendwie ?

Ich hoffe, dass ich mich nun deutlich ausgedrückt habe was genau ich suche.

Danke schon mal für Eure Hilfe !

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateisuche

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread