Würde mich voll freuen wenn mir einer weiterhelfen könnte!
Gruß Lebowski
Sub AnzahlDateien()
With Application.FileSearch
.NewSearch
' Hier den Ordner angeben
.LookIn = "C:\Copy"
' Wenn Unterordner mitgezählt werden sollen dann auf TRUE.
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
MsgBox .FoundFiles.Count
End With
End Sub