'Ausgabe der Stundenbezogenen Dateilisten
    Dim output As New List(Of String)
    output.Add("Pfad: " & di.FullName)
    output.Add("Datum: " & dt.Date.ToString("dd.MM.yy"))
 
    For i As Integer = 0 To 23
       output.Add(String.Empty)
       output.Add(i.ToString & " bis " & (i + 1).ToString & " Uhr")
 
       If hourlist(i).Count > 0 Then
          For k As Integer = 0 To hourlist(i).Count - 1
              output.Add(hourlist(i)(k))
          Next k
       Else
          output.Add("Keine Datei")
       End If
    Next i
 
    IO.File.WriteAllLines("C:\daten\FileTime.txt", output.ToArray)