Files und Folder

Question

Hallo Leute,

ich versuche ein Makro in Excel2000 zu schreiben, welches mir die Anzahl aller Files in allen Unterordnern zeigt, und zusätzlich die Anzahl aller vorhandenen Ordner und Unterordner, bis zu einer Tiefe die Windows XP Home Edition erlaubt, anzeigt.
Unter Eigenschaften von Ordnern läßt sich das auch erledigen, aber ich hätte es lieber mit einem Makro. Dann ließen sich die Ergebnisse weiter verarbeiten.

Im voraus schon vielen Dank für Eure Antworten.

Answer 1

Hallo Otto,

das sollte mit nachfolgendem Makro gehen. Mit dem Makro werden DIr in Zelle B1 des aktuellen Tabellenblatts die Anzahl Dateien und in B2 die Anzahl der Verzeichnisse ausgegeben.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Dim ObjFileSystemObject As Object
Dim objAnzDateien As Object
Dim objDurchläufe As Object
Dim objDateityp As Object
Public lngAnzahlDateien As Long
Public lngAnzahlVerzeichnisse As Long

Sub start()
lngAnzahlDateien = 0
lngAnzahlVerzeichnisse = 0
Set ObjFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set objAnzDateien = ObjFileSystemObject.getfolder("H:\Müll\")
Auslesen
End Sub

Sub Auslesen()

Application.ScreenUpdating = False

For Each objDateityp In objAnzDateien.Files
lngAnzahlDateien = lngAnzahlDateien + 1
Next

For Each objDurchläufe In objAnzDateien.subfolders
lngAnzahlVerzeichnisse = lngAnzahlVerzeichnisse + 1
Set objAnzDateien = objDurchläufe
Auslesen
Next objDurchläufe

Range("A1") = "Anzahl Dateien:"
Range("A2") = "Anzahl Verzeichnisse:"
Range("B1") = lngAnzahlDateien
Range("B2") = lngAnzahlVerzeichnisse
Columns("A:B").EntireColumn.AutoFit
End Sub


MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Oliver,

Deine Antwort trifft genau ins schwarze. Vielen Dank dafür. Du hast mir sehr geholfen.

Mit freundlichen Grüßen

Otto

Answer 3

Hallo Otto,

gerne geschehen. Freut mich, dass es funktioniert. Danke auch für die Rückmeldung.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]