VBA-Beispiel 028
mail schreiben
mail schreiben

mit VBA Ordner anlegen-löschen

Mit diesen Makros können Sie einen Ordner erstellen oder entfernen
Sub Ordner_anlegen()
'prüfen ob ein Ordner vorhanden ist und falls nicht
'fragen ob Ordner erstellt werden soll
Dim Ord As String
Dim Antwort As Integer

Ord = "C:\Eigene Dateien\Teste"

  If Dir(Ord, vbDirectory) <> "" Then
      MsgBox "Ordner ist schon vorhanden"
  Else
  Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _
          & vbNewLine _
          & "soll der Ordner angelegt werden?!", vbYesNo)
      If Antwort = vbYes Then
'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung
'den neuen Ordner auf dem aktuellen LW.
'LW wurde aber durch "C:\Eigene Dateien\Teste" festgelegt
      MkDir Ord
      MsgBox "Ordner " & Ord & " angelegt"
      Else
      MsgBox "Es wurden keine Änderungen vorgenommen"
      Exit Sub
      End If
  End If
End Sub



Sub Ordner_loeschen()
Dim Ord As String
'der Ordner wird nur gelöscht wenn er keine Dateien enthält
'ansonsten kommt eine Fehlermeldung

Ord = "C:\Eigene Dateien\Teste"

  'gibt es den Ordner? Wenn ja:
  If Dir(Ord, vbDirectory) <> "" Then    
    RmDir "C:\Eigene Dateien\Teste"   'RmDir löscht den Ordner
    MsgBox "der Ordner " & Ord & " wurde gelöscht"
  Else
    MsgBox "den Ordner " & Ord & " gibt es nicht"
  End If
End Sub

Download:   vba028.zip