Office: (Office 2016) Leere Unterordner mit VBA rekursiv löschen

Ohrkester · 15. August 2018

Servus,
wer lesen kann, ist im Vorteil.

'Wenn kein Unterordner und kein File vorhanden => loeschen
If oFolder.SubFolders.Count = 0 And oFolder.Files.Count = 0 Then
'Debug.Print oFolder.Path 'Test
oFolder.Delete 'wenn alles passt, scharf stellen
End If

Entferne diese Zeilen oder kommentiere sie aus (einfaches Hochkomma vor jede Zeile)

jeepster · 15. August 2018

Hallo Ohrkester, das hatte ich in der Tat übersehen, wie peinlich.
Nun habe ich den zweiten Code entsprechend Deinem Hinweis geändert
und auch noch die Call-Anweisung in der 3. Zeile des ersten
Codes ergänzt.
Es wird aber kein einziger der angelegten Unterordner gelöscht. Irgendwo ist noch der Wurm drin :weinen

markusxy · 15. August 2018

Wenn du den Hauptordner nicht löschen willst, dann musst du das der Funktion irgendwie mitteilen. *wink.gif*

Code:

Private Sub MicrosoftAccessBeenden_Click()

Dim Hauptordnerpfad As String
Hauptordnerpfad = "R:/Ideenbörse Referat 4.2/Materialsammlung"

LoescheLeereOrdner Hauptordnerpfad,True

Schliessen:
DoCmd.Quit
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser greift auf nachstehenden Code zu:
Code:

Public Sub LoescheLeereOrdner(ByVal sPath As String, Hauptordner as Boolean)
'Verweis auf "Microsoft Scripting Runtime" setzen oder auf LateBinding umstellen
Dim oFSO As FileSystemObject
Dim oFolder As Folder
Dim oSubFolder As Folder

Set oFSO = New FileSystemObject
Set oFolder = oFSO.GetFolder(sPath)

'Rekursiver Aufruf fuer alle Unterordner
For Each oSubFolder In oFolder.SubFolders
Call LoescheLeereOrdner(oSubFolder.Path, False)
Next oSubFolder

'Wenn kein Unterordner und kein File vorhanden => loeschen
If oFolder.SubFolders.Count = 0 And oFolder.Files.Count = 0 And Hauptordner = False Then
oFolder.Delete
End If

'Aufraeumen
Set oSubFolder = Nothing
Set oFolder = Nothing
Set oFSO = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jeepster · 15. August 2018

Guten Morgen markusxy,
das funktioniert ganz vorzüglich*Smilie

Herzlichen Dank!

Ohrkester · 16. August 2018

Servus,
sorry, dass ich das übersehen hatte.
Hier eine Demoversion mit der markusxy Änderung.

Office: (Office 2016) Leere Unterordner mit VBA rekursiv löschen

Leere Unterordner mit VBA rekursiv löschen

Leere Unterordner mit VBA rekursiv löschen

Leere Unterordner mit VBA rekursiv löschen

Leere Unterordner mit VBA rekursiv löschen - Similar Threads - Leere Unterordner VBA

Leere Zeilen löschen

automatisch gesetzte Seitenzahlen doppelt und danach leer

Gelöscht-Ordner nach Datum leeren

Combox leere Zelle ignorieren

Leere Zelle farblich füllen

leere Zelle in Zeile finden

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen