Laufzeitfehler '75' bei Kill
07.01.2021 22:29:31
Frank
bin gerade im Stande, ein paar Codezeilen zusammen zu fügen. Weit weg von echtem können - aber bislang kam ich ganz gut zurecht. Aber nun stehe ich komplett auf dem Schlauch und habe auch schon das Netz nach Hinweisen durchsucht. Deshalb ist der Code inzwischen auch etwas vermüllt. Habe es aber so belassen, damit Ihr seht, was bisher schon alles versucht wurde.
Folgende Funktion endet immer mit dem Laufzeitfehler 75. Ich verstehe auch nicht, warum das Error Handling nicht greift.
Function ElementeEntfernen(aPfad() As String, aName() As String) As Boolean
Dim i As Integer
On Error GoTo WEITER
For i = 0 To UBound(aName)
colFilenamesImport.Remove (aName(i))
Debug.Print "Kill : " & aPfad(i) & aName(i)
Debug.Print Dir(aPfad(i) & aName(i))
ChDir aPfad(i)
Debug.Print CurDir
On Error Resume Next
Kill Dir(aPfad(i) & aName(i))
Debug.Print Err.Number
Debug.Print Err.Description
WEITER:
Next i
ElementeEntfernen = True
End Function
Im Direktfenster steht zum Zeitpunkt des Fehlers:
Kill : D:\Temp\Fotos\Import\2019_0808_151855 - Kopie.jpg
2019_0808_151855 - Kopie.jpg
D:\Temp\Fotos\Import
Der Debugmodus steht in der Zeile "Kill ..."
Die Dir-Funktion in der Kill-Adresse war ein Versuch sicher zu gehen, dass ein gültiger Pfad verwendet wird.
Letzlich ist mir sogar egal, ob die Datei gelöscht wird oder nicht. Mit der Fehlerroutine könnte ich also gut leben. Aber ich bekomme den Laufzeitfehler einfach nicht weg.
In den Optionen steht die Einstellung bereits auf "Bei nicht verarbeiteten Fehlern".
Bitte um Hilfe!
Ganz großen Dank schon im Voraus.
Frank