![](/forum/profile/get-photo.asp?memberid=27&type=profile&rnd=376) Elite Veteran
Beiträge: 860
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) 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
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |