ich habe einige Beispiele für Dateienzählen gefunden. Unter anderem den Code unten, den ich etwas für meine Belange abgeändert habe.
Allerdings habe ich keine Idee wie ich neben dem Kriterium "Suche nach Dateiendung *.csv" noch die Dateigröße als Kriterium einbeziehen kann.
Gesucht werden alle csv-Dateien in einem Odner über 1kB Größe.
Kann mir jemand weiterhefen?
Danke und viele Grüße
Michael
'https://www.herber.de/forum/archiv/1068to1072/1069908_Dateien_aus_Verzeichnis_zaehlen.html
Option Explicit
Public i As Long Function count_Files(chkFolder As String) As Long 'Dim i As Long Dim chkFile As String i = 0 chkFile = Dir(chkFolder & "\*.csv") If chkFile = "" Then count_Files = 0 Exit Function End If i = 0 Do While chkFile "" i = i + 1 chkFile = Dir() Loop count_Files = i End Function
Sub NeueZeile()
count_Files (ThisWorkbook.Path & "\Test\")
Range("a1") = i
End Sub