Public Function GetFileDateCounter(ByVal folder As String, _
     Optional ByVal Searchpattern As String = "*.*") As List(Of String)
 
     Dim FileDateCounter As _
        New Collections.Generic.SortedDictionary(Of Date, Integer)
 
     With FileDateCounter
 
        For Each fi As IO.FileInfo In _
           New IO.DirectoryInfo(folder).GetFiles(Searchpattern)
 
           Dim dt As Date = fi.CreationTime.Date()
           If .ContainsKey(dt) Then
              .Item(dt) += 1
           Else
              .Add(dt, 1)
           End If
        Next fi
 
     End With
 
     Dim fdc As New List(Of String)
     For Each item As KeyValuePair(Of Date, Integer) In FileDateCounter
        fdc.Add(Format(item.Key, "dd.MM.yyyy") & " - " & item.Value)
     Next item
 
     Return fdc
End Function