nachfolgend mein Code.
Private Sub CommandButton13_Click()
If Dir("C:\Users\muser1\Desktop\Zwischenlager E-Mail", vbDirectory) = "" Then
MkDir ("C:\Users\muser1\Desktop\Zwischenlager E-Mail")
MsgBox "Ordner ''Zwischenlager E-Mail'' wurde angelegt!"
Else
MsgBox "Ordner ''Zwischenlager E-Mail'' ist vorhanden!"
End If
End Sub
Der Code funktioniert auch.aber wie schaffe ich es, dass wenn ich auf den Button klick zuerst ein Eingabefeld kommt in dem ich den Ordnernamen eingeben kann und dann wird der Ordner erstellt oder auch nicht wenn er vorhanden ist.
Kann mir jemand helfen?
MfG