Thema Datum  Von Nutzer Rating
Antwort
21.05.2014 19:43:59 rueckenbach
NotSolved
Blau Ordner mittels CommandButton und Inputbox erstellen
 21.05.2014 21:12:12 Amicro2000
NotSolved
21.05.2014 22:39:01 rueckenbach
Solved
22.05.2014 10:51:54 rueckenbach
NotSolved

Ansicht des Beitrags:
Von:
Amicro2000		 Datum:
21.05.2014 21:12:12		 Views:
931		 Rating:
     
Antwort:
  Ja
Thema:
Ordner mittels CommandButton und Inputbox erstellen

Hallo rueckenbach,

z.b. so:

Const Ordnerstamm As String = "C:\"

Private Sub CommandButton1_Click()
    Dim Ordnername As String
    
    On Error GoTo Fehler
    
    Ordnername = InputBox("Bitte Ordnernamen eingeben.", "Neuen Ordner erstellen.")
    If Ordnername = "" Then Exit Sub
    
    If Ordner_vorhanden(Ordnerstamm & Ordnername) = True Then
        MsgBox "Es is schon ein Ordner mit diesem Namen (" & Ordnername & ") vorhanden.", vbExclamation, "Ordner schon vorhanden."
        Exit Sub
    Else
        MkDir Ordnerstamm & Ordnername
        MsgBox "Ordner wurde erfolgreich erstellt.", vbInformation, "Ordner erstellt."
    End If
    Exit Sub
Fehler:
    MsgBox "Es ist ein Fehler beim erstellen des Ordners aufgetretten.", vbCritical, "Fehler"
End Sub

Public Function Ordner_vorhanden(Pfad As String) As Boolean
    If Pfad = "" Then Ordner_vorhanden = False: Exit Function
    If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
    If Dir(Pfad, vbDirectory) <> "" Then
    Ordner_vorhanden = True
    Else
    Ordner_vorhanden = False
    End If
End Function

Wie du sehen kannst brauchst du nur einen Commandbutton1,

oder du änderst das (Private Sub CommandButton1_Click) in z.b. Public Sub Ordner_erstellen um und kopierst alles in ein Modul

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.05.2014 19:43:59 rueckenbach
NotSolved
Blau Ordner mittels CommandButton und Inputbox erstellen
 21.05.2014 21:12:12 Amicro2000
NotSolved
21.05.2014 22:39:01 rueckenbach
Solved
22.05.2014 10:51:54 rueckenbach
NotSolved