Ordnernamen und inhalt zaehlen
04.06.2008 17:01:00
hary
Habe im Archiv ein Makro gefunden mit dem man Ordnernamen ausliest und auflistet. Nun moechte ich aber, dass zusaetzlich die Dateien in dem Ordner gezaehlt werden.
Eingabe ueber eine UserForm habe ich schon, mir gehts nur um die Zaehlerei.
Soll so aussehen: Ordnername & (Anzahl der Dateien)
Sub ordner()
Dim fs, f, f1, fc, s, Zei As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\")
For Each f1 In f.SubFolders
Zei = Zei + 1
Cells(Zei, 1) = f1.Name
Next
End Sub
Gruss Hary