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

Hallo zusammen,

ich habe im Internet bislang leider keine Lösung für folgende Aufgabenstellung gefunden:

Ein Windows-(Start-)Ordner kann leere Unterordner (ohne Dateien, aber mit weiteren Unterordnern) bis ins x-te Glied enthalten. Ich suche eine Prozedur, die leere Unterordner (also ohne Dateien und weitere Unterordner) von hinten nach vorne (rekursiv) löscht. Nur nicht-leere Ordner sollen übrig bleiben.

Hat jemand eine Lösung dafür?

Dank & Gruß, jeepster

:)

 

Leere Ordner finden
Das hättest Du sicher auch gefunden, wenn Du gesucht hättest: windows ordner ohne inhalt ermitteln

 

Hallo Eberhard, danke für Deine schnelle Antwort! Ich möchte das aus einer Access-Datenbank heraus veranlassen. Da komme ich mit Deinen Such-Schlagworten leider auch nicht weiter.
Mit Dank & Gruß, jeepster

 

Das rote ist ein Link. Wenn Du dessen Inhalt anschaust, könntest Du vielleicht das lesen:

 

Super, danke! Das scheint in der Tat mein Fall zu sein. Den Link hinter der roten Schrift hatte ich nicht erkannt. Sorry!

Ich habe nur leider das Problem, dass das mit dem "Schreib dir einfach ein Script..." bei mir schlicht an entsprechenden VBA-Fähigkeiten scheitert. Wie sähe so etwas denn aus?

Mit Dank & Gruß, jeepster

 

Hallo,

hab mal kurz dieses VB-Bsp.
https://www.vb-paradise.de/index.php...-l%C3%B6schen/
auf das FSO transferiert:
Code:

 

Vielen Dank Marsu65! Es müsste in meinem Falle allerdings eine Private Sub sein, da ich die Löschung beim Schließen eines Formulars durchführen möchte. Wie sähe die Prozedur denn dann aus?

Mit Dank & Gruß, jeepster

 

Hallo!
Dann überschreibst du das Public mit einem Private ... so warm
ist es doch gar nicht mehr *wink.gif*

 

Hallo Marsu,
zur Gesamtproblematik: das Löschen leerer Unterordner soll beim Schliessen eines Formulars (s.u.) erfolgen. Mit meinem bisherigen Code wird ein zuvor generierter Ordner "Prüfidee Nr._xxx" gelöscht, wenn sich keine Datei darin befindet. Wurden unterhalb des generierten Ordners ein oder mehrere Unterordner angelegt, die leer sind, so bleiben diese erhalten. Die möchte ich aber beim Schließen des Formulars löschen. Ansonsten kann "Prüfidee Nr._xxx" nicht gelöscht werden. Wie müsste Dein Code sich einfügen und woran erkennt er den Startordner?


Private Sub Formular_schließen_Click()
strPrüfideePfad = "C:....Prüfidee Nr._" & Me.Nummer
'Prüft zunächst, ob überhaupt ein Ordner Prüfidee Nr._&Me.Nummer vorhanden ist. Wenn nicht, wird das Formular geschlossen.
'Wenn ein Ordner vorhanden ist, wird geprüft, ob er leer ist. Ist er leer, wird er gelöscht und das Formular geschlossen.
'Ist er nicht leer, dann nur Formular schließen.
If Dir(strPrüfideePfad, vbDirectory) = "" Then
GoTo Schliessen
End If
Debug.Print Dir(strPrüfideePfad & "*", vbDirectory)
Debug.Print Dir
If Dir = "" Then RmDir strPrüfideePfad
Schliessen:
DoCmd.Close
End Sub

Mit Dank & Gruß, jeepster

 

Liest und probierst Du eigentlich, was man Dir schreibt?
In der Prozedur von Marsu übergibst Du den Pfad als Parameter.

LoescheLeereOrdner(ByVal sPath As String)

 

Ja, klar, das hatte ich natürlich gemacht. Sorry, dass ich es nicht geschrieben habe.
Für sPath hatte ich "strPrüfideePfad" eingesetzt. Es hat aber nicht funktioniert, deshalb habe ich versucht den Gesamtkontext darzustellen.

Dank & Gruß, jeepster

 

Die von Marsu gezeigte Routine oder Deine Umsetzung?
Wer etwas konstruktiv arbeiten würde, würde etwas detaillierter dazu ausführen und nicht nur so einen Allgemeinplatz ausspucken, um dann etwas anderes zu zeigen ohne irgendeine sichtbare Berücksichtigung des Vorschlages.

Es kann aber auch sein, dass Du noch etwas Zeit benötigst, zwei, drei Gedanken in einen Zusammenhang zu bringen.

 

Ich habe im 1. Schritt jetzt erstmal versucht, Marsus Routine einer neuen Befehlsschaltfläche zuzuordnen, um zunächst nur die leeren Ordner zu löschen, ohne das Formular danach zu schließen.

Der Code-Generator erzeugt dann im VBA-Fenster eine Private Sub mit dem Namen "Private Sub NameBefehlschaltfläche_Click ()". Es fehlt der Klammerinhalt "ByVal sPath As String". Deshalb habe ich in der Zeile darunter "Dim strPrüfideePfad As String" ergänzt und danach Marsus Routine angefügt. Für sPass habe ich jeweils strPrüfideePfad eingesetzt. Der Debugger meldet dann für die Zeile Dim oFSO As FileSystemObject: "Benutzerdefinierter Typ nicht definiert".

Es stimmt, ich bekomme die Fäden ohne Hilfestellung einfach noch nicht zusammen*confused.gif*

 

Vielleicht hilft das.

Code:

 

\@Beaker
Du musst ihm aber noch dazu sagen, daß
a) Formular_schließen der Name eines Buttons ist
b) er die Sub LoescheLeereOrdner in den Formularcode kopieren muss.

*grins