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

Private Sub tm_loader()
    dir = New DirectoryInfo(tm_setting.pfad_sicherungsdatei)
    tm_table = New DataTable
    tm_table = Class_TM.bu_tm_columns(tm_table)
    Dim linq_data As IEnumerable(Of Class_TM) = Class_TM.bu_linq(dir)
    tm_table = Class_TM.bu_tm_rows(linq_data, tm_table, tm_setting)
   ' Dim bu_files As IEnumerable(Of FileInfo) = From files In dir.GetFiles( 
   ' "*.bak") spielt hier keine Rolle
    DataGridView1.DataSource = tm_table
End Sub

Private Sub FSW1_Deleted(sender As Object, e As IO.FileSystemEventArgs) Handles _
  FSW1.Deleted
        tm_table.Rows.Clear()
       ' tm_table = Class_TM.bu_tm_columns(tm_table) die Spalten sind schon 
       ' vorhanden
        Dim linq_data As IEnumerable(Of Class_TM) = Class_TM.bu_linq(dir)
        tm_table = Class_TM.bu_tm_rows(linq_data, tm_table, tm_setting) ' nur 
        ' die Zeilen sollten neu hinzu gefügt werden
End Sub

Public Class frmFilesystemViewer
 
    Dim WithEvents fsw As New IO.FileSystemWatcher
    Dim fbd As New FolderBrowserDialog With {.ShowNewFolderButton = False}
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With
        {.Parent = Me, .Top = 50, .Left = 10, .Width = 300, .Height = 400, _
          .DataSource = bs}
 
    Dim WithEvents btnFolderToWatch As New Button With
    {.Parent = Me, .Top = 5, .Left = 5, .Width = 300, .Text = "Folder To Watch" & _
      "Files"}
 
 
    Private Sub frmFilesystemViewer_Load(sender As Object, e As EventArgs) _
      Handles MyBase.Load
        With dt.Columns
            .Add("Name", GetType(String))
            .Add("Size", GetType(Integer))
            .Add("Creation", GetType(Date))
        End With
        dt.PrimaryKey = {dt.Columns("Name")}
        bs.DataSource = dt
    End Sub
 
 
    Private Sub btnFolderToWatch_Click(sender As Object, e As EventArgs) _
      Handles btnFolderToWatch.Click
 
        If fbd.ShowDialog = DialogResult.Cancel Then Exit Sub
 
        FillTable(fbd.SelectedPath)
 
        With fsw
            .Filter = "*.*"
            .NotifyFilter = IO.NotifyFilters.FileName Or _
              IO.NotifyFilters.LastWrite
            .Path = fbd.SelectedPath
            .EnableRaisingEvents = True
        End With
 
    End Sub
 
 
    Private Function FillTable(ByVal folder As String) As Integer
 
        bs.SuspendBinding()
 
        With dt.Rows
            .Clear()
            Dim di As New IO.DirectoryInfo(folder)
            For Each fi As IO.FileInfo In di.GetFiles("*.*")
                Dim row As DataRow = dt.NewRow
                row("Name") = fi.Name : row("Size") = fi.Length 
                row("Creation") = fi.CreationTime
                .Add(row)
            Next fi
            Return .Count
        End With
 
        bs.ResumeBinding()
        bs.ResetBindings(False)
 
    End Function
 
    Private Function Reset()
        bs.ResetBindings(False)
    End Function
 
 
    Private Sub fsw_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles _
      fsw.Renamed
        Dim row As DataRow = dt.Rows.Find(e.OldName)
        row("Name") = e.Name
        Invoke(New MethodInvoker(AddressOf Reset))
    End Sub
 
 
    Private Sub fsw_Deleted(sender As Object, e As IO.FileSystemEventArgs) _
      Handles fsw.Deleted
        Dim row As DataRow = dt.Rows.Find(e.Name)
        dt.Rows.Remove(row)
        Invoke(New MethodInvoker(AddressOf Reset))
    End Sub
 
 
    Private Sub fsw_Created(sender As Object, e As IO.FileSystemEventArgs) _
      Handles fsw.Created
        Dim fi As New IO.FileInfo(e.FullPath)
        Dim row As DataRow = dt.NewRow
        row.ItemArray = {fi.Name, fi.Length, fi.CreationTime}
        dt.Rows.Add(row)
        Invoke(New MethodInvoker(AddressOf Reset))
    End Sub
 
 
    Private Sub fsw_Changed(sender As Object, e As IO.FileSystemEventArgs) _
      Handles fsw.Changed
        If e.ChangeType = IO.WatcherChangeTypes.Changed Then
            Dim row As DataRow = dt.Rows.Find(e.Name)
            Dim fi As New IO.FileInfo(e.FullPath)
            row.ItemArray = {fi.Name, fi.Length, fi.CreationTime}
        End If
        Invoke(New MethodInvoker(AddressOf Reset))
    End Sub
End Class