AC07 Filesearch-ersatz die 2te

16/07/2008 - 17:32 von Remi | Report spam
Hallo NG

Ich hab eine Anwendung (AC02) in der ich einen Pfad auswàhlen kann und
innerhalb dieses Pfades\Ordner\Unterordner (fast) alle Dateien
(doc,txt,rtf,xls etc.etc.) nach einem bestimmten Begriff durchsuchen kann.
(ein Beispiel-mdb, 276KB von Axel John: http://www.a-jo.de/ die ich
angepaßt habe)
Als Resultat bekomme ich eine Liste der Dateien. Mit einem Klick kann ich
mir den Inhalt anzeigen lassen.
Dieses funktioniert nicht mit AC07 weil -With Application.FileSearch- nicht
mehr vorhanden ist.
Gunter Avenius hat mir freundlicherweise mit einem Link geholfen aber ich
blicke da nicht durch mit der Umsetzung.
Da ich KEIN Programmierer bin "stehe ich auf dem Schlauch".

dies ist der Teil wo AC07 "streikt":

With Application.FileSearch
.NewSearch
.LookIn = Me!Pfadname
.SearchSubFolders = True
.filename = "*.*"
.TextOrProperty = Me!Suchbegriff
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
MsgBox "Es wurden " & .FoundFiles.count & _
" Datei(en) mit" & vbCrLf & _
" " & gesucht & " " & vbCrLf & _
"gefunden."
For q = 1 To .FoundFiles.count
If IsNull(Forms!frmtextsuch!Textgefunden) Then
Me!Textgefunden = .FoundFiles(q)
Me!Suchwort = Me!Suchbegriff
DoCmd.GoToRecord acForm, "frmtextsuch", acNewRec
End If
Next

Vielleicht kann mir jemand auf die Sprünge helfen ???
 

Lesen sie die antworten

#1 Remi Noel
16/07/2008 - 17:49 | Warnen spam
Sorry NG

aus versehen ging "die Post ab"
1. der link zu a-jo ist richtig aber er ist in Rente!
2. eine Gruß und Remi fehlte auch noch


"Remi" schrieb im Newsbeitrag
news:g5l48l$i40$01$
Hallo NG

Ähnliche fragen