If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    DateiName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
    Dim PfadLen As Integer = Len(LB_DateiName.Text)
    LB_DateiPfad.Text = Microsoft.VisualBasic.Left(LB_DateiPfad.Text, Len( _
      LB_DateiPfad.Text) - (PfadLen + 1))
    DateiPfad = Microsoft.VisualBasic.Left(LB_DateiPfad.Text, Len( _
    LB_DateiPfad.Text) - (PfadLen + 1))
'...

Private Sub CMB_SU_ZCHNG_Click(sender As System.Object, e As System.EventArgs) _
  Handles CMB_SU_ZCHNG.Click
 
Dim i As Integer
With DataGridView2
   .Columns.Add("0", "Datei")
   .Columns(0).Width = 190
   .Columns.Add("1", "Pfad")
   .Columns(1).Width = 230
 
   .Rows.Add(i)
 
    If .Rows(i).Cells(0).Value = "" Then
       .Rows(i).Cells(0).Value = DateiName.ToString
       .Rows(i).Cells(1).Value = DateiPfad.ToString
       .Rows(i).DefaultCellStyle.Alignment = _
         DataGridViewContentAlignment.MiddleLeft
 
        For i = 0 To .Rows.Count - 1
           .Rows.Add(i)
           .Rows(i).Cells(0).Value = DateiName.ToString
           .Rows(i).Cells(1).Value = DateiPfad.ToString
           .Rows(i).DefaultCellStyle.Alignment = _
             DataGridViewContentAlignment.MiddleLeft
         Next
      End If
End With
'...

mfg.

Dirk