Thema Datum  Von Nutzer Rating
Antwort
Rot leere UnterOrdner in einem Ordner löschen
 17.12.2015 18:17:41 joerg
NotSolved
18.12.2015 14:31:56 Gast12016
NotSolved
18.12.2015 14:36:26 Gast6627
*****
Solved
19.12.2015 09:01:01 joerg
NotSolved

Ansicht des Beitrags:
Von:
joerg		 Datum:
17.12.2015 18:17:41		 Views:
2591		 Rating:
     
Antwort:
  Ja
Thema:
leere UnterOrdner in einem Ordner löschen

hallo,

ich habe einen Ordner in dem sich nur Unterordner befinden. Diese sind entweder mit Daten (Dateien und / oder gefüllte Ordner) gefüllt oder komplett leer.

Ich würde gerne die leeren Unterordner identifizieren ("finden") und dann löschen. Ordner löschen geht mit "rmDir". Wie kann ich die leeren Ordner finden und löschen?

gefunden habe ich folgendes:

Sub ordner()

    Dim fso
    Dim objOrdner As Object
    Dim pfad as string
    pfad="C:\test"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objOrdner = fso.GetFolder(pfad)  
    If objOrdner.Files.Count = 0 And objOrdner.Subfolders.Count = 0 Then objOrdner.Delete
       
    Set objFolder = Nothing
    Set fso = Nothing

End Sub

mich wundert nur dass "rmdir" gar nicht vorkommt sondern nur "objOrdner.delete". Welcher Weg ist besser / einfacher?

Vielen Dank für die Hilfe im voraus!!

Gruß,

Jörg

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot leere UnterOrdner in einem Ordner löschen
 17.12.2015 18:17:41 joerg
NotSolved
18.12.2015 14:31:56 Gast12016
NotSolved
18.12.2015 14:36:26 Gast6627
*****
Solved
19.12.2015 09:01:01 joerg
NotSolved