Office: Alle Dateien in den Unterordnern löschen

Hallo,

ich benötige ein Makro das alle Dateien mit der Endung (.cdr) in den Unterordner löschen soll.

Angenommen die Ordnerstruktur lautet
D:HausTürenFensterSonstiges
dann sollten alle .cdr Dateien ab D:Haus gelöscht werden. Die Ordnernamen dürfen nicht gelöscht werden!

Die Dateien die sich in den Unterordner befinden sind sehr groß.
Es wäre super, wenn noch eine Meldung kommen würde, wenn der Löschvorgang abgeschlossen ist.

Im Forum hab ich nicht das richtige finden können.
Mit diesem Makro kann ich leider nur in einem Ordner alle Dateien löschen.

Public Sub Alle_Ordner_Zeichnungen_löschen()
Dim backupDir
backupDir = "D:HausTürenFensterSonstiges"
On Error Resume Next
Kill (backupDir & "*.*") ' oder "*.xls" oder......
End Sub

Vielleicht kann mir jemand das Makro abändern damit ich die Aufgabe lösen kann.

Gruß
Matthias

:)

 

Moin,

den Befehl KILL kenne ich nicht, sollte mich aber wundern, wenn der keinen Parameter hätte, mit dem die Unterordner angesprochen werden, ähnlich wie /s beim DOS-Befehl DEL.

 

Naja, das Makro hab ich aus einem anderen Beitrag. Zumindest funktionieren die Befehle, aber er löscht mir leider nur die Dateien in dem genannten Unterordner.
Da ich mich mit Befehle in FBA nicht auskenne sind mir Vorschläge nützlicher.

In meinem erstellten Beitrag werden die Backslash im Pfad nicht angezeigt. Warum auch immer...
Wollte euch nur drauf hinweisen, weil der ganze Pfad so zusammengepresst ist.

 

Hallo

wenn man was nicht kennt, ist googeln besonders hilfreich. Hier mal meine gefundene Lösung bei Eingabe folgender Suichkriterien:
vba alle unterverzeichnisse löschen h i e r

Gruß von Luschi
aus klein-Paris

 

Hallo Matthias,

in diesem Codebeispiel musst Du nur noch Deinen Ausgangspfad und die Dateiart abändern. Die Pfadstruktur bleibt vollständig erhalten und eine Abschlussmeldung gibt es auch: Code:

 

Vielen Dank für die schnelle Antwort!

Ich habe den nötigen Pfad ersetzt, aber der Löschvorgang wird nicht ausgeführt nachdem das Script ausgeführt wird. Es werden auch keine Dateien gefunden die auf dem Pfad D:Haus liegen.

Hab eigentlich alles abgeändert...*eek.gif*
Es handelt sich nur um die .cdr Dateien die gelöscht werden müssen.



sBasis = "D:" & sPS & "Haus" '

 

Hallo
alternativ den dos'en-befehl del verwenden:

Code:

 

Vermutlich.

Minus Eins als Anzahl kommt heraus, wenn es den Pfad nicht gibt oder keine einzige passende Datei enthalten ist.

Eine Ursache kann auch sein, dass der echte Ausgangspfad ein Leerzeichen enthält. Dann ändere die Codezeile so ab: Code:

 

Jetzt funktionierts!
Allerdings kommt bei jeder Datei die gefunden wird das Fenster, wenn ich die Datei löschen will. In den Unterordner sind an die 3000 Dateien die ich auf einmal löschen muss. Da kann es schon mal sein, dass ich mal zwischendrin auf's Klo gehen muss bis alles gelöscht wurde. *tongue.gif*
Wie kann man das umgehen?

 

Du könntest den Select Case MsgBox-Teil herausnehmen und nur die Kill und Zählerzeile stehen lassen, oder gleich daolix Vorschlag in #7 folgen.
Alternativ könntest Du vorher abfragen, ob wirklich so viele Dateien in einem Rutsch gelöscht werden sollen.