Laufzeitfehler 52
22.02.2022 07:09:38
Joschi
Ich möchte aus einer durch ein Programm erstellten Liste prüfen, ob bestimmte Verzeichnisse noch existieren. Dazu benutze ich die DIR-Funktion in Verbindung mit vbDirectory.
Beim Verzeichnis C:\Windows\Temp\ erhalte ich einen Laufzeitfehler 52. Die Ursache hatte ich schnell gefunden: ich habe keine Leseberechtigung für dieses Verzeichnis.
Frage: wie kann ich den Laufzeitfehler ohne Einsatz von "on Error" vermeiden?.
Mein Test-Code:
Option Explicit
Sub LZF52()
Const Temp As String = "C:\Windows\Temp\"
Const User As String = "C:\User\"
Debug.Print Dir(User, vbDirectory)
Debug.Print Dir(Temp, vbDirectory)
End Sub
Gruß Josch