Thema Datum  Von Nutzer Rating
Antwort
05.11.2015 20:21:19 Mario
NotSolved
Blau Leere Ordner in einem Verzeichnis suchen und löschen
 06.11.2015 04:25:24 Gast86499
*****
Solved
06.11.2015 16:19:55 Gast75368
NotSolved
07.11.2015 12:03:26 Gast44063
NotSolved

Ansicht des Beitrags:
Von:
Gast86499		 Datum:
06.11.2015 04:25:24		 Views:
1327		 Rating:
     
Antwort:
 Nein
Thema:
Leere Ordner in einem Verzeichnis suchen und löschen

Die unkomplizierte / kurze Variante:

Option Explicit

Sub Bsp()
  
  Dim strFolder As String
  
  strFolder = "X:\Hauptverzeichnis\" '< ggf. anpassen
  
  If Right$(strFolder, 1) <> "\" _
    Then strFolder = strFolder & "\"
  
  Dim objFSO        As Object 'Scripting.FileSystemObject
  Dim objFolder     As Object 'Scripting.Folder
  Dim objSubFolder  As Object 'Scripting.Folder
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
'  Set objFSO = New Scripting.FileSystemObject
  
  If Not objFSO.FolderExists(strFolder) Then
    Call MsgBox("Verzeichnis '" & strFolder & "' existiert nicht.", vbExclamation)
    Exit Sub
  End If
  
  Set objFolder = objFSO.GetFolder(strFolder)
  
  For Each objSubFolder In objFolder.SubFolders
    If objSubFolder.Files.Count = 0 _
    And objSubFolder.SubFolders.Count = 0 _
    Then
      Debug.Print "lösche leeres Verzeichnis '" & objSubFolder.Path & "'"
      Call objSubFolder.Delete
    End If
  Next
  
End Sub

Zusätzlich zum Kriterium, dass keine Dateien im Unterverzeichnis vorkommen, wird außerdem nachgeschaut, ob in dem Unterverzeichnis auch keine weiteren Unterverzeichnisse existieren. Nur wenn diese zwei Bedingungen zutreffen, wird es wirklich gelöscht.

 

Gruß

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
05.11.2015 20:21:19 Mario
NotSolved
Blau Leere Ordner in einem Verzeichnis suchen und löschen
 06.11.2015 04:25:24 Gast86499
*****
Solved
06.11.2015 16:19:55 Gast75368
NotSolved
07.11.2015 12:03:26 Gast44063
NotSolved