Windows ordner anlegen

Forumthread: Windows ordner anlegen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Windows ordner anlegen

01.09.2016 17:38:03

Jens

Hallo
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Stichwort:Inputbox... owT

01.09.2016 17:53:29

robert
AW: Windows ordner anlegen

01.09.2016 19:55:27

Werner

Stichwort:Inputbox... owT

01.09.2016 17:53:29

robert

AW: Windows ordner anlegen

01.09.2016 19:55:27

Werner

Hallo Jens,
versuch mal:

Private Sub CommandButton13_Click()
Dim strOrdnername As String
strOrdnername = InputBox("Geben Sie einen Ordnernamen ein:", "Ordnername...")
If Dir("C:\Users\muser1\Desktop\strOrdnername", vbDirectory) = "" Then
MkDir ("C:\Users\muser1\Desktop\strOrdnername")
MsgBox "Ordner ''" & strOrdnername & "'' wurde angelegt!"
Else
MsgBox "Ordner ''" & strOrdnername & "'' ist vorhanden!"
End If
End Sub

Gruß Werner