Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.11.2015 20:21:19 |
Mario |
|
|
Leere Ordner in einem Verzeichnis suchen und löschen |
06.11.2015 04:25:24 |
Gast86499 |
|
|
|
06.11.2015 16:19:55 |
Gast75368 |
|
|
|
07.11.2015 12:03:26 |
Gast44063 |
|
|
Von:
Gast86499 |
Datum:
06.11.2015 04:25:24 |
Views:
1326 |
Rating:
|
Antwort:
|
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ß
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Leere Ordner in einem Verzeichnis suchen und löschen |
06.11.2015 04:25:24 |
Gast86499 |
|
|
|
06.11.2015 16:19:55 |
Gast75368 |
|
|
|
07.11.2015 12:03:26 |
Gast44063 |
|
|