Alte Datei mit FileSearch funzt nicht
11.06.2021 13:52:00
Sebastian
ich habe vor langen Jahren eine "Dateisuchmaschine" in VBA, die mit der "Application.Filesearch" funktionierte.
Ab Excel 2007 geht das ja nicht mehr.
Jetzt wollte ich die "alte" Anwendung wider zum Leben erwecken...
Aber irgendwie bekomme ich das mit dem CODE, den ich finde nicht hin...
Was muss ich tun, damit dieser "alte" Code wieder funktioniert:
Dim iCounter As Integer
With Application.FileSearch
.Filename = SearchString 'Suchname wird eingesetzt (Inklusive Wildcards)
.LookIn = DP 'Suchpfad wird hier angegeben
.SearchSubFolders = True 'Unterordner sollen mit einbezogen werden
.Execute 'Befehl zum Ausführen der Suche
.FileType = msoFileTypeAllFiles ' Alle Dateitypen erlaubt
If .FoundFiles.Count = 0 Then 'Fehlermeldung, wenn kein Suchergebnis vorliegt
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub 'Programmausstieg bei keinem Suchergebnis
Else
For iCounter = 1 To .FoundFiles.Count 'Zählt die gefundenen Dateien
ActiveCell.Formula = .FoundFiles(iCounter) 'Schreibt in die aktuelle Zelle den gefunden Dateipfad rein
ActiveCell.Offset(1, 0).Select 'Geht eine Reihe weiter nach unten
Next iCounter 'Nächstes Suchergebnis
End If
Im Voraus bereits vielen Dank