Suchmaschine mit Access

[MajorIVA]

Hallo,
ich möchte gerne in Access eine kleine Suchmaschine programmieren. Dabei bentzue ich ein Formular, wo ich ein Textfeld zur Eingabe, eine Button zum ausführen und ein Textfekd zur Ausgabe benutze. Momentan sieht der Quelltext so aus:

Private Sub cmdSuche_Click()

Dim i As Integer
Dim search As String

Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:\"
.SearchSubFolders = True
.FileName = txtEingabe
.MatchTextExactly = False

If .Execute > 0 Then

MsgBox "Es wurden " & .FoundFiles.Count & " Dateien gefunden."

For i = 1 To .FoundFiles.Count
lAusgabe = .FoundFiles(i)
Next i
Else
lAusgabe = "There were no files found."
End If
End With
End Sub


Leider zeigt er mir bei der Ausgabe immer nur eine Datei an und nicht alle, so wie ich es möchte. Ausserdem würde ich gerne die ausgegebenen Dateien als Hyperlink haben damit ich sie sofort öffnnen kann. Hoffe ihr versteht mein Problem.

THX im Vorraus

MFG

Major

 

[Sinac]

Das mit dem "Link" kannst du mit der API-Funktion ShellExecute() machen.
Aber mal am Rande: Warum nimmst du nicht die Suchfunktion von Windows?

 

[MajorIVA]

Original geschrieben von Sinac
Das mit dem "Link" kannst du mit der API-Funktion ShellExecute() machen.
Aber mal am Rande: Warum nimmst du nicht die Suchfunktion von Windows?

Erstmal danke!

Muss das für meinen Chef auf der Arbeit machen, habe ihm auch gesagt er soll die Windows Version nehmen, aber der hat mir für diese Datenbank dann noch ein paar Sache mehr erklärt.(Glaube eig. nur das die zu blöd sind die Windows zu benutzen)
OK jetzt muss ich nur noch wissen wie die Auflistung geht

 

[MajorIVA]

Könntest du mir noch evtl. zeigen wo und wie ich die einbauen muss, bekomme dass nämlich nicht so ganz hin!