Dreho52 - 24.02.19
...
Hier mein Befehl der leider nicht funktioniert, was ist daran falsch?

Private Sub Form_Load()
' DokuPfad wird aus der Abfrage mit dem gleichnamigen Feld gezogen
' Im Moment steht in Dokupfad "D:\TPSC\Access_Reports\"
' Der Ordner "D:\TPSC" besteht bereits
If Dir(DokuPfad, vbDirectory) = "" Then
MkDir DokuPfad
MsgBox ("Pfad " & DokuPfad & " erstellt !")
Else
MsgBox ("Pfad " & DokuPfad & " existiert schon")
End If
End Sub