Public Class Form1
 
 
    Private Sub StartVZbutton_Click(sender As Object, e As EventArgs) Handles _
      StartVZbutton.Click
        If Start.ShowDialog() = DialogResult.OK Then
            StartVZ.Text = Start.SelectedPath
        End If
        cbo.DataSource = GetFileDateCounter(StartVZ.Text)
    End Sub
 
    Private Sub ZielVZbutton_Click(sender As Object, e As EventArgs) Handles _
      ZielVZbutton.Click
        If Ziel.ShowDialog() = DialogResult.OK Then
            ZielVZ.Text = Start.SelectedPath
        End If
    End Sub
 
    Public Function GetFileDateCounter(ByVal folder As String, Optional ByVal _
      Searchpattern As String = "*.txt") 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, "ddd dd.MM.yy") & " - " & item.Value & "" & _
              "Dateien")
 
        Next item
 
        Return fdc
 
 
 
    End Function
 
 
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles _
      Clear.Click
        StartVZ.Text = ""
        ZielVZ.Text = ""
 
    End Sub
 
Private Sub Go_Click(sender As Object, e As EventArgs) Handles Go.Click
 
    End Sub
 
 
End Class