'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)

Dim counter As  _
System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        counter = My.Computer.FileSystem.GetFiles("C:\Windows")
        Label1.Text = ("number of files is " & CStr(counter.Count))

Dim di As New IO.DirectoryInfo("C:\daten")
For Each fi As IO.FileInfo In di.GetFiles
    Dim hour As Integer = fi.CreationTime.Hour
    'Liste ergänzen
Next fi

Private Sub DemoFileTime()
 
   'Eine 23er Stunden-Liste, bei der jedes Element 
   'eine Stringliste für die Dateinamen ist
   Dim hourlist As New List(Of List(Of String))
   'Listenelemente erstellen 
   For i As Integer = 0 To 23
       hourlist.Add(New List(Of String))
   Next i
 
   Dim dt As Date = CDate("28.5.2013") 'kritisches Datum
 
   Dim di As New IO.DirectoryInfo("C:\daten") 'kritischer Ordner
 
   For Each fi As IO.FileInfo In di.GetFiles
       Dim ct As Date = fi.CreationTime
       'Datum filtern
       If ct.Date = dt.Date Then
          'Zeitregister (Stunden 0-0:59:59, 1 - 1:59:59, ....)
          hourlist(ct.Hour).Add(fi.Name)
       End If
   Next fi
 
   'Ausgabe der Stundenbezogenen Dateilisten
   For i As Integer = 0 To 23
      Debug.WriteLine(String.Empty)
      Debug.WriteLine(i.ToString & " bis " & (i + 1).ToString)
      For k As Integer = 0 To hourlist(i).Count - 1
         Debug.WriteLine(hourlist(i)(k))
      Next k
   Next i
End Sub

EALA FREYA FRESENA

Zitat:

In den Dateieigenschaften unter Sicherheit,Erweitert, Besitzer wird nichts angezeigt?

 'Ausgabe der Stundenbezogenen Dateilisten
   For i As Integer = 0 To 23
      Debug.WriteLine(String.Empty)
      Debug.WriteLine(i.ToString & " bis " & (i + 1).ToString)
      For k As Integer = 0 To hourlist(i).Count - 1
         Debug.WriteLine(hourlist(i)(k))
      Next k
   Next i

Textbox1.Text = String.Join(Environment.NewLine, output.ToArray)

    'Ausgabe der Stundenbezogenen Dateilisten
    Dim output As New List(Of String)
    Dim pl As 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
          pl = ""
          If hourlist(i).Count > 1 Then pl = "en"
          'Anzahl der Dateien
          output.Add(hourlist(i).Count.ToString & " Datei" & pl)
          'Liste der Dateinamen
          '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

   'Ausgabe der Stundenbezogenen Dateilisten
   Dim output As New List(Of String)
   Dim outline As New System.Text.StringBuilder 'Ausgabezeile bauen
 
   output.Add("Pfad: " & di.FullName)
   output.Add("Datum: " & dt.Date.ToString("dd.MM.yy"))
 
   For i As Integer = 0 To 23      
      outline.Clear() 'Ausgabezeile leeren
      'Uhrzeit-Bereich formatiert ausgeben
      outline.Append(String.Format("{0,2} bis {1,2} Uhr: ", i, i + 1))
 
      'Anzahl der Dateien anhängen 
      Select Case hourlist(i).Count
         Case 0
            outline.Append("Keine Dateien")
         Case 1
            outline.Append(" eine Datei")
         Case Else
            outline.Append(String.Format("{0,5} Dateien", hourlist(i).Count))
      End Select
 
      'aktuelle Ausgabezeile in einen String wandeln 
      'und in der Ausgabezeilen-Liste als neue Zeile anhängen
      output.Add(outline.ToString)
   Next i

   '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.Format("{0,2} bis {1,2} Uhr: ", i, i + 1))
 
      'Die aktuelle Zeile steht am Index: output.count-1 
      'Dort wird angehängt
      Select Case hourlist(i).Count
         Case 0
            output(output.Count - 1) &= "Keine Dateien"
         Case 1
            output(output.Count - 1) &= " eine Datei"
         Case Else
            output(output.Count - 1) &= _
              String.Format("{0,5} Dateien", hourlist(i).Count)
      End Select
   Next i

   '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

With listview1
   .View = View.Details 'Sicht einstellen
   .Font = New Font("Courier New", 10) 'feste Zeichenbreite
   .Items.Clear(): .Columns.Clear() 
 
   'Spalten neu einrichten
   With .Columns
      .Add("z", "Zeit") : .Add("Häufigk.") : .Add("kumulativ")
 
      .Item("z").Width = 250 'Header-Zugriff per Key
      For i As Integer = 1 To 2
         With .Item(i)
            .TextAlign = HorizontalAlignment.Right
            .Width = 100
         End With
      Next i
   End With
 
   'ListViewItems erstellen und füllen
   With .Items
      sum = 0 'Integer-Variable
      For i As Integer = 0 To 23
         'Neues Item anfügen
         Dim lvi As ListViewItem = _
         .Add(String.Format("Dateien von {0,2} bis {1,2} Uhr: ", i, i + 1))
 
         'SubItems füllen 
         lvi.SubItems.Add(hourlist(i).Count.ToString)
         sum += hourlist(i).Count 'Summation
         lvi.SubItems.Add(sum.ToString)
       Next i
   End With
End With

Public Class frmFileHourCounter
 
    'Das Chart-Control
    Dim cht As New System.Windows.Forms.DataVisualization.Charting.Chart With
        {.Parent = Me, .Size = New Size(600, 500)}
 
 
    Private Sub frmFileHourCounter_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(610, 520)
 
        Dim folder As String = "C:\output" 'Ordner mit den Dateien
        Dim criticalday As Date = New Date(2015, 5, 25) 'Erstell-Datum
 
        'Stunden-Verteilung der Datei-Erstellzeiten am kritischen Tag
        Dim dt As DataTable = GetFileHourCounter(folder, criticalday)
 
        'Einrichten des Chart
        With cht
            .ChartAreas.Add("Base")
            .Series.Add("MyChart")
 
            With .Series("MyChart")
                .ChartArea = "Base"
                .ChartType = _
                   DataVisualization.Charting.SeriesChartType.Line
                .Color = Color.Blue
                .BorderWidth = 3
                .XValueMember = dt.Columns(0).ColumnName
                .YValueMembers = dt.Columns(1).ColumnName
            End With
 
            With .ChartAreas("Base").AxisX
                .Interval = 1
                .Maximum = 24
                .Minimum = 1
 
                .LabelStyle.Angle = 45
 
                .Title = "Erstellzeit der Dateien in " & folder & _
                    " am " & criticalday.Date.ToString("dd.MM.yyyy")
                .TitleFont = New Font("Arial", 12, FontStyle.Bold)
            End With
 
            With .ChartAreas("Base").AxisY
                .Title = "Anzahl der Dateien"
                .IntervalType = _
                DataVisualization.Charting.DateTimeIntervalType.Auto
            End With
 
            .DataSource = dt 'Datenbindung herstellen
        End With
 
    End Sub
 
 
 
    Public Function GetFileHourCounter(ByVal folder As String, _
                                       ByVal criticalday As Date, _
                    Optional ByVal IncludeSubDirs As Boolean = False, _
                    Optional ByVal searchpattern As String = "*.*") As DataTable
 
        If Not IO.Directory.Exists(folder) Then Return Nothing
 
        Dim so As IO.SearchOption = IO.SearchOption.TopDirectoryOnly
        If IncludeSubDirs Then so = IO.SearchOption.AllDirectories
 
        Dim dt As New DataTable
        'Datatable einrichten (pro Zeile eine Stunde)
        dt.Columns.Add("Uhrzeit") 
        dt.Columns.Add("Datei Anzahl", GetType(Integer))
        For i As Integer = 0 To 23
            dt.Rows.Add(i.ToString("00") & " bis " & _
                       (i + 1).ToString("00") & " Uhr", 0)
        Next i
 
        Dim ct As Date, hr, c As Integer
        For Each file As String In IO.Directory.GetFiles _
            (folder, searchpattern, so)
 
            ct = New IO.FileInfo(file).CreationTime
 
            If ct.Date = criticalday.Date Then
                'Stunde ermitteln und eintragen
                hr = ct.Hour
                c = CInt(dt.Rows(hr)("Datei Anzahl"))
                c += 1
                dt.Rows(hr)("Datei Anzahl") = c
            End If
        Next file
 
        Return dt
    End Function
 
End Class

Public Class frmFileHourCounter2
 
    'Für Wahl des Datums
    Dim dtpCriticalDay As New DateTimePicker With _
      {.Parent = Me, .MinDate = CDate("1.1.2001")}
 
    'Für Wahl des Ordners
    Dim WithEvents btnFolder As New Button With _
        {.Parent = Me, .Text = "Ordner wählen", .Width = 150, .Top = 30}
    Dim lblfolder As New Label With _
        {.Parent = Me, .Width = 150, .Left = 160, .Top = 30}
    Dim fbd As New FolderBrowserDialog With _
        {.Description = "Ordner für Erstellzeiten-Chart"}
 
    Dim cht As New System.Windows.Forms.DataVisualization.Charting.Chart _
       With {.Parent = Me, .Size = New Size(600, 500), .Top = 60}
 
 
 
    Private Sub frmFileHourCounter_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(610, 580)        
    End Sub
 
 
    Private Sub btnFolder_Click(sender As Object, _
        e As System.EventArgs) Handles btnFolder.Click
 
        With fbd
            If .ShowDialog = _
            Windows.Forms.DialogResult.Cancel Then Exit Sub
 
            lblfolder.Text = .SelectedPath
 
            Dim dt As DataTable = _
                GetFileHourCounter(.SelectedPath, dtpCriticalDay.Value)
 
            ShowChart(dt, .SelectedPath, dtpCriticalDay.Value.Date)
        End With
    End Sub
 
 
    Private Sub ShowChart(ByVal dt As DataTable, _
                          folder As String, criticalday As Date)
 
        With cht
            .ChartAreas.Clear()
            .Series.Clear()
            .DataSource = Nothing
 
            If dt Is Nothing Then
                MsgBox("Keine Erstellzeiten-Tabelle für den Chart") 
                Exit Sub
            End If
 
            .ChartAreas.Add("Base")
            .Series.Add("MySeries")
            With .Series("MySeries")
                .ChartArea = "Base"
                .ChartType = DataVisualization.Charting.SeriesChartType.Line
                .Color = Color.Blue
                .BorderWidth = 3
                .XValueMember = dt.Columns(0).ColumnName
                .YValueMembers = dt.Columns(1).ColumnName
            End With
            With .ChartAreas("Base").AxisX
                .Interval = 1
                .Maximum = 24
                .Minimum = 1
                .LabelStyle.Angle = 45
                .Title = "Erstellzeit der Dateien in " & folder & _
                    " am " & criticalday.Date.ToString("dd.MM.yyyy")
                .TitleFont = New Font("Arial", 12, FontStyle.Bold)
            End With
            With .ChartAreas("Base").AxisY
                .Title = "Anzahl der Dateien"
                .IntervalType = _
                DataVisualization.Charting.DateTimeIntervalType.Auto
            End With
 
            .DataSource = dt
        End With
    End Sub
 
End Class

cht.ChartAreas("Base").BackColor = Color.Beige
cht.BackColor = Color.Yellow