Elite Veteran
Beiträge: 848
  
Ort: Wien | Hallo!
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
Setze mal einen Haltepunkt und prüfe, was bei deiner Zeile mit
Dir(DokuPfad, vbDirectory)
rauskommt.
-----
Servus
Karl
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek |
Neues Verzeichnis anlagen