Member
Beiträge: 30
| Hallo liebe Access-Freaks
in meiner Access-Db starte ich ein Form.
Ich möchte für Exports von Reports ein Verzeichnis anlegen, sofern dieses noch nicht besteht.
Dies wollte ich bei Form Open anlegen.
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 |