Private Sub dgv_Folders_DragDrop(sender As Object, e As DragEventArgs) _
      Handles dgv_Folders.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop, True) = True Then
 
            Files_Kopieren()
 
            Dim DGRow As DataGridViewRow = e.Data.GetData(GetType( _
              DataGridViewRow)) ' Falsch!!!
 
            MsgBox(dgv_Folders.Rows(DGRow.Index).Cells(0).Value) ' Ergibt 
            ' Null-Value - Fehler
 
            If DGRow.Index > -1 Then
                AuswählenOrdner("", DGRow.Index)
                ausschneidenFlag = True ' Löscht nach dem erfolgreichen 
                ' Einfügen die Quelldateien
                Files_Einfügen()
            End if
 
        end if
    end sub