Dateien in Ordner zählen
04.12.2004 11:12:47
Hannes
mit folgendem Makro kann man die Dateien eines
Ordners zählen...
Sub Dateien_zählen()
With Application.FileSearch
.LookIn = "C:\Eigene Dateien\"
.Filename = "*.*"
If .Execute() > 0 Then
[a1] = .FoundFiles.Count
Else
MsgBox "Keine Dateien gefunden"
End If
End With
End Sub
gibt es eine Möglichkeit, daß Makro so zu erweitern,
daß auch alle Dateien der Unterordner mitgezählt werden?
Danke
Grüße Hannes
Anzeige