Ordner löschen

Forumthread: Ordner löschen

Ordner löschen

23.04.2009 13:33:27

Saphi

Hallo,
mit diesem Makro kann ich den Ordner Test_1 löschen.
Option Explicit


Private Sub OrdnerLöschen()
Dim objFileS As Object
Dim objFileFolder As Object
Set objFileS = CreateObject("Scripting.FileSystemObject")
Set objFileFolder = objFileS.GetFolder("Y:\Löschordner\Test_1")
objFileFolder.Delete
End Sub

Gibt es eine Möglichkeit, alle Ordner aus "Y:" zu löschen?
LG
Saphi

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner löschen

23.04.2009 14:51:16

Nepumuk
AW: Ordner löschen

23.04.2009 15:12:10

Saphi

AW: Ordner löschen

23.04.2009 14:51:16

Nepumuk

Hallo,
na einfach so:

Private Sub OrdnerLoeschen()
    Dim objFileFolder As Object
    For Each objFileFolder In CreateObject( _
            "Scripting.FileSystemObject").GetFolder("Y:\").SubFolders
        objFileFolder.Delete
    Next
End Sub

Gruß
Nepumuk

AW: Ordner löschen

23.04.2009 15:12:10

Saphi

Hi Nepumuk,
vielen Dank!
LG
Saphi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen Ordner mit VBA in Excel zu löschen, kannst du die folgenden Schritte befolgen:

Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Füge den folgenden VBA-Code in das Modul ein:

Private Sub OrdnerLöschen()
    Dim objFileS As Object
    Dim objFileFolder As Object
    Set objFileS = CreateObject("Scripting.FileSystemObject")
    Set objFileFolder = objFileS.GetFolder("Y:\Löschordner\Test_1")
    objFileFolder.Delete
End Sub

Ersetze den Pfad "Y:\Löschordner\Test_1" durch den Pfad des Ordners, den du löschen möchtest.
Schließe den VBA-Editor und gehe zurück zu Excel.
Drücke Alt + F8, wähle OrdnerLöschen aus der Liste und klicke auf Ausführen.

Häufige Fehler und Lösungen

Fehler: "Zugriff verweigert"
- Stellen sicher, dass der Ordner nicht von einer anderen Anwendung verwendet wird und dass du über die notwendigen Berechtigungen zum Löschen des Ordners verfügst.
Fehler: "Ordner nicht gefunden"
- Überprüfe den angegebenen Pfad. Achte darauf, dass er korrekt eingegeben wurde und der Ordner tatsächlich existiert.

Alternative Methoden

Eine Alternative zum Löschen von Ordnern in Excel ist die Verwendung von PowerShell. Hier ist ein einfaches Beispiel:

Öffne PowerShell.
Führe den folgenden Befehl aus, um den gewünschten Ordner zu löschen:
```
Remove-Item "Y:\Löschordner\Test_1" -Recurse -Force
```

Diese Methode eignet sich besonders, wenn du mehrere Ordner gleichzeitig löschen möchtest.

Praktische Beispiele

Wenn du alle Ordner im Laufwerk Y: löschen möchtest, kannst du folgenden VBA-Code verwenden:

Private Sub AlleOrdnerLoeschen()
    Dim objFileFolder As Object
    For Each objFileFolder In CreateObject("Scripting.FileSystemObject").GetFolder("Y:\").SubFolders
        objFileFolder.Delete
    Next
End Sub

Dieser Code durchläuft alle Unterordner im Laufwerk Y: und löscht sie.

Tipps für Profis

Sichere wichtige Daten: Stelle sicher, dass du alle wichtigen Daten gesichert hast, bevor du mit dem Löschen von Ordnern beginnst.
Testumgebung: Teste den Code in einer sicheren Umgebung, um unerwünschte Datenverluste zu vermeiden.
Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinem VBA-Code, um unerwartete Fehler abzufangen und zu protokollieren.

FAQ: Häufige Fragen

1. Kann ich auch leere Ordner löschen?
Ja, die oben genannten Methoden löschen sowohl leere als auch nicht leere Ordner.

2. Was passiert, wenn ich einen Ordner lösche?
Gelöschte Ordner können nicht wiederhergestellt werden, es sei denn, du hast ein Backup. Sei also vorsichtig beim Löschen.

3. Welche Excel-Version benötige ich?
Die vorgestellten VBA-Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010, 2013, 2016, 2019 und Excel 365.

Beliebteste Forumthreads (12 Monate)