Dateianzahl feststellen
01.04.2005 11:42:33
köbi
möchte die Anzahl Dateien (nur xls)in einem Verzeichnis mit mehreren Unterordner feststellen. Einzelne Unterornder schaffe ich, wie kann ich jedoch alle Unterorner mit einbeziehen?
Code:
Sub Anzahlclich()
Set fs = Application.FileSearch
With fs
.LookIn = "l:\avor\Clichebestellung\0001-0500\"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox "gefunden Anzahl Dateien " & Chr$(13) & Chr$(10) & Chr$(10) _
& .FoundFiles.Count & Chr$(13) & Chr$(10) & Chr$(10)
Else
MsgBox "Keine Dateien gefunden."
End If
End With
End Sub
möchte alle Dateien zählen lassen im Verzweichnis "Clichebestellung" diese sind
"0001-0500", "0501-1000", "1001-1500" usw.
Habt vielen Danke für eure Hilfe
Gruss
köbi
Anzeige