Public Class frmFiles
 
    'ab hier einfügen
 
    Dim dt As New DataTable, bs As New BindingSource With {.DataSource = dt}
    Dim WithEvents dgv As New DataGridView With {.Parent = Me}
    Dim ofd As New OpenFileDialog With {.Title = "Datei wählen", .Filter = _
      "Txt|*.txt"}
 
    Private Sub frmFiles_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("Datei", GetType(String))
        dt.Rows.Add("C:\daten\demo.txt")
        With dgv
            .AutoGenerateColumns = False
            .DataSource = bs
            Dim dc As New DataGridViewButtonColumn
            .Columns.Add(dc)
            dc.DataPropertyName = "Datei"
        End With
    End Sub
 
    Private Sub dgv_CellMouseClick(sender As Object, _
        e As System.Windows.Forms.DataGridViewCellMouseEventArgs) _
        Handles dgv.CellMouseClick
 
        If dgv.Columns(e.ColumnIndex).DataPropertyName = "Datei" Then
            Dim cell As DataGridViewCell = _
             dgv.Rows(e.RowIndex).Cells(e.ColumnIndex)
 
            If Not IsDBNull(cell.Value) Then
                Dim filename As String = _
                    CType(cell.Value, String)
                'Vorhandene Datzei öffnen 
                If IO.File.Exists(filename) Then
                    Process.Start(filename)
                End If
 
            Else
                'neue Zeile anlegen und per Dialog füllen
                If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then _
                   Exit Sub
                dt.Rows.Add(ofd.FileName)
            End If
        End If
    End Sub
 
    'bis hier einfügen
End Class