Windows ordner anlegen
01.09.2016 15:38:03
Jens
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
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
Anzeige