Hallo zusammen,

ich habe ein Problem, das vmtl. im Zusammenhang mit FileSearch auftritt.

Hintergrund: Ich durchlaufe mit FileSearch nacheinander ein paar Ordner, deren Pfad ich aus einer separaten Tabelle hole und suche dabei nach .xls-Tabellen, die bestimmte Voraussetzungen erfüllen.
Diese Dateien kopiere ich dann in einen gemeinsamen Ordner.
Wenn Dateien mit gleichem Namen auftreten, benenne ich die
ältere der Dateien um in "_Alt_Datum_...Dateiname.

In der fett markierten Zeile bekomme ich einen Laufzeitfehler


Interessant ist auch, dass wenn ich die xls-Datei schließe, in der das Makro steckt, die Nachfrage kommt, ob die Änderungen in den Dateien, die das Makro zuvor "gelesen" hat, gespeichert werden sollen. (?!)

Das sind die meiner Meinung nach wichtigsten Zeilen des Codes:

With Application.FileSearch
    .NewSearch              '--> auf Standardeinstellungen setzen
    .LookIn = strPfadnameAktuell
    .SearchSubFolders = True
    .Filename = oWSBearbeitung.Cells(25, 2)
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
    
If .Execute() > 0 Then 
.
.
.
For lDateiZaehler = 1 To .FoundFiles.Count
VDatumAktuelleDatei = FileDateTime(.FoundFiles(lDateiZaehler))
[b]
Set oWBExtern = GetObject(.FoundFiles(lDateiZaehler))
[/b]

In der obenstehenden Zeile tritt wie gesagt der Fehler auf. Ich definiere hier die Datei als oWBExtern und lese im Anschluß daraus den Dateinamen und den Pfad (über .name und .path). Diese Info verwende ich dann anschließend für die Dateioperationen.

' bestehende Datei umbenennen
Name strDateiAlt As strDateiNeu

Hat jemand eine Idee, wo der Fehler liegen könnte bzw. vielleicht gibt es ja eine einfachere Lösung, mit der man das Problem "umschiffen" kann?

Für Eure Hilfe im voraus vielen Dank!