Hallo Nepumuk,
erst einmal vielen Dank für die großartige Arbeit und Mühe, die du dir mit meinem Problem gemacht hast!
DasMacro läuft korrekt, solange nur *.out files vorhanden sind.
Bei Anwesenheit der *.out.txt erscheint ein Laufzeitfehler 75, Fehler beim Zugriff auf Pfad/Datei. Den Fehler kann ich nachvolziehen aber nicht abstellen...
Auftreten tut er in der Zeile
Open strFileArray(intIndex, 1) For Input A #intFile
wenn ich im Lokalfenster nachschaue was da wie belegt ist, finde ich im strArray String(1 to 4, 1 to 3), wenn 2 *.out files und 2 *.out.txt vorhanden sind.
Scheinbar werden die *.out.txt in das Array aufgenommen enthalten aber nichts (""). Bein versuch diese zu öffnen kommt dann der Fehler..
Nun mit meinem bescheidenen Wissen dachte ich irgend wie müsste wohl die If-Abfrage genau dieses Problem abfangen. Wenn If...".out.txt" Then wird die Abfrage korrekt zum End If geleitet, jedoch entsteht ein strFileArray(index,1)="" - ich denke das ist das Problem.
Darf ich dich noch einmal Bitten mir behilflich zu sein.
Ich habe als zip-Datei das Makro und die Dateien beigefügt - ich denke so ist es am einfachsten das Problem nachzuvollziehen.
https://www.herber.de/bbs/user/26776.zip
Danke und Gruß
Michael