Überprüfen, ob Ordner existiert
29.12.2015 20:19:26
Jürgen
meine Prozedur setzt einen existierenden Ordner voraus. Das wird durch eine Funktion überprüft. pre>
Function OrdnerVorhanden(ByVal strPfad As String) As Boolean
On Error GoTo Fehler
OrdnerVorhanden = True
ChDir (strPfad)
On Error GoTo 0
Exit Function
Fehler:
OrdnerVorhanden = False
On Error GoTo 0
End Function
Durch einen Zufall wurde beim Auslesen einer Zelle mit dem Speicherort ein Backslash zuviel eingefügt:
D:\Mxxxc\Lagerhaltung\\Backup\
Die Funktion hat diesen String ohne Probleme erkannt und ein True zurückgegeben, der anschließende Speichern-Aufruf brachte einen Laufzeitfehler '1004: "Überprüfen, ob Speichort korrekt ist."
Frage: Warum erkennt die Funktion die falsche Schreibweise nicht und wie kann man solche Fehler abfangen?
Vielen Dank für eure Hilfe.
LG Jürgen