Public Shared Function bu_tm_columns(ByVal tm_table As DataTable) As DataTable
 
    With tm_table
            .TableName = "Backup_Tabelle"
            .Columns.Add(New DataColumn("erstellt am", Type.GetType( _
              "System.DateTime")))
            .Columns.Add(New DataColumn("Größe (kByte)", Type.GetType( _
            "System.String")))
            .Columns.Add(New DataColumn("letzter Zugriff", Type.GetType( _
            "System.DateTime")))
            .Columns.Add(New DataColumn("letzte Änderung", Type.GetType( _
            "System.DateTime")))
            .Columns.Add(New DataColumn("Dateiname", Type.GetType( _
            "System.String")))
    End With
 
    Return tm_table
End Function

Public Shared Function bu_linq(ByVal tm_dir As DirectoryInfo) As IEnumerable(Of _
  Class_TM)
    Return From file In tm_dir.GetFiles("*._bak") Select New Class_TM With
                                                 {.bu_create = _
                                                   file.CreationTime,
                                                  .bu_groesse = file.Length,
                                                  .bu_lastaccess = _
                                                    file.LastAccessTime,
                                                  .bu_lastmodified = _
                                                  file.LastWriteTime,
                                                  .bu_filename = file.FullName}
 
End Function

Public Shared Function bu_tm_rows(ByVal bu_files As IEnumerable(Of Class_TM), _
  ByVal tm_table As DataTable, ByVal tm_settings As Class_Settings) As DataTable
 
    For Each zeile As Class_TM In bu_files
        Dim dr As DataRow = tm_table.NewRow
        dr("erstellt am") = zeile.bu_create.ToShortDateString
        dr("Größe (kByte)") = Math.Round(zeile.bu_groesse / 1024, 2).ToString
        dr("letzter Zugriff") = zeile.bu_lastaccess.ToLongTimeString
        dr("letzte Änderung") = zeile.bu_lastmodified.ToLongTimeString
        dr("Dateiname") = zeile.bu_filename
 
        tm_table.Rows.Add(dr)
    Next
    Return tm_table
End Function

Private Sub daten_in_dgv()
    With DataGridView1
        .DataSource = tm_table
        .Columns("Dateiname").Visible = False
    End With
End Sub

tm_table.Rows.Clear()