' Ermitteln von den Tagen
        Dim Files As New List(Of String)
        Dim TSpan As New TimeSpan
        Dim i As Integer
 
 
        TSpan = EndDate.Subtract(StartDate)
        Dim Tage As Long = TSpan.TotalDays()
 
        For i = 0 To Tage
            Dim dDate As Date = DateAdd("d", Tage - i, StartDate)
            Files.Add("/Log/" & dDate.Month & "/" & dDate.Day)
        Next