'Kummulative Ausgabe der Datei-Häufigkeit      
   Dim sum As Integer = 0 'Summationsvariable
 
   output.Add("Pfad: " & di.FullName)
   output.Add("Datum: " & dt.Date.ToString("dd.MM.yy"))
 
   For i As Integer = 0 To 23
      sum += hourlist(i).Count 'Summation
      'Ausgabezeile als String listen
      output.Add _
        (String.Format("Bis {0,2} Uhr: {1,4} Dateien", i + 1, sum))
   Next i