Office: (Office 2010) Laufzeitfehler 52 bei DIR

GünterD · 6. Februar 2016

Hallo Zusammen,

hat jemand eine Idee warum Variante 1 funktioniert und bei Variante 2 in der markierten Zeile die Fehlermeldung Laufzeitfehler 52: Dateiname- oder nummer falsch kommt?

Variante 1
Code:

dbPath = "c:\DB\Test1\"
Debug.Print dbPath
On Error GoTo Sprung1
If Dir(dbPath) "" Then
GoTo PfadVorhanden
End If
Sprung1:

dbPath = "c:\DB\Test2\"
On Error GoTo sprung2
If Dir(dbPath) "" Then
GoTo PfadVorhanden
End If

sprung2:

PfadVorhanden:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Variante 2

Code:

dbPath = "\\DB\Test1\"
Debug.Print dbPath
On Error GoTo Sprung1
If Dir(dbPath) "" Then
GoTo PfadVorhanden
End If
Sprung1:

dbPath = "\\DB\Test2\"
On Error GoTo sprung2
If Dir(dbPath) "" Then  Laufzeitfehler 52
GoTo PfadVorhanden
End If

sprung2:

PfadVorhanden:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für eine Rückmeldung!

:)

ebs17 · 7. Februar 2016

Die Verwendung von Sprungmarken außerhalb einer Fehlerbehandlung stammt aus der Mitte des vorigen Jahrhunderts. Wo schreibt man so etwas ab?
Code:

Function PathExists(ByVal sPath As String) As Boolean
If Dir(sPath, vbDirectory) > vbNullstring Then PathExists = True
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 7. Februar 2016

Hallo,

Code:

Dim fso As Object
Dim strPfad As String

Set fso = CreateObject("Scripting.FileSystemObject")

Select Case True
Case fso.FolderExists("\\DB\Test1\")
Debug.Print "Test1 gefunden!"
Case fso.FolderExists("\\DB\Test2\")
Debug.Print "Test2 gefunden!"
End Select
'.....

aufräumen:
Set fso = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Alternativ: Die Function DirExists verwenden.

Grüße
EarlFred

GünterD · 12. Januar 2021

von ebs17

Die Verwendung von Sprungmarken außerhalb einer Fehlerbehandlung stammt aus der Mitte des vorigen Jahrhunderts. Wo schreibt man so etwas ab?
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Function PathExists(ByVal sPath As String) As Boolean
If Dir(sPath, vbDirectory) > vbNullstring Then PathExists = True
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Eberhardt,

grundsätzlich hast du mit deinem Kommentar recht.
Deine Anregung funktioniert bei mir aber nicht.
Kann es vielleicht daran liegen, dass ich erst gar nicht in einem Netzwerk bin. D.h. auf "\\DB\..." zugreifen kann?
Wie könnte ich das trotzdem hinbekommen?

EarlFred · 8. Februar 2016

Hallo ?,

Wie könnte ich das trotzdem hinbekommen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

2 Ansätze stehen noch hier:
http://www.ms-office-forum.de/forum/...66&postcount=3

Probiert? Klappt nicht?

Grüße
EarlFred

GünterD · 12. Januar 2021

von EarlFred

Hallo ?,

2 Ansätze stehen noch hier:
http://www.ms-office-forum.de/forum/...66&postcount=3

Probiert? Klappt nicht?

Grüße
EarlFred
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo EarlFred,

danke für den Tipp.
Es klappt jetzt.

Office: (Office 2010) Laufzeitfehler 52 bei DIR

Laufzeitfehler 52 bei DIR

Laufzeitfehler 52 bei DIR

Laufzeitfehler 52 bei DIR

Laufzeitfehler 52 bei DIR - Similar Threads - Laufzeitfehler

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

MS Access Lauftzeitfehler "2501"