'Datei kopieren
    Private Function Kopiere_Datei(ByVal FileName As String)
        Dim _overwrite As Boolean = False
        Dim AblageID As Integer
        AblageID = CInt(AblagedetailsIDTextBox.Text)
        DokumentTextBox.Text = FileName
        Me.Cursor = Cursors.WaitCursor
        Try
 
            Dim Ordner_Ziel = get_Dokumente_Ablage_Ordner(AblageID)
            Dim fi_Quelle As New FileInfo(IO.Path.GetFileNameWithoutExtension( _
              ofd.FileName))
            Dim fi_Ziel As New FileInfo(IO.Path.Combine(Ordner_Ziel, _
            IO.Path.GetFileNameWithoutExtension(ofd.FileName)))
 
            If fi_Ziel.Exists Then
                Dim Abfrage_Result As DialogResult = MessageBox.Show( _
                    String.Concat("Eine Datei mit diesem Namen ist bereits" & _
                    "vorhanden: ", fi_Ziel.Name, Environment.NewLine, "Die" & _
                    "vorhandene Datei überschreiben?"), _
                    "Sicherheits-Abfrage", _
                    MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
                    MessageBoxDefaultButton.Button2)
 
                If Abfrage_Result = System.Windows.Forms.DialogResult.No Then
                    Return False
                ElseIf Abfrage_Result = System.Windows.Forms.DialogResult.Yes _
                  Then
                    _overwrite = True
                End If
            End If
 
            'falls Ordner gelöscht wurde, Ordner erstellen
            create_Dokumente_Ablage_Ordner(AblageID)
 
 
            fi_Quelle.CopyTo(fi_Ziel.FullName, True)
 
 
 
            Dim Dokument As AblageDB.AblagedokumenteRow
 
            If _overwrite = True Then
 
                'Datensatz suchen, der überschrieben werden soll
                Dim DS = From Eintrag In BS_Ablagedokumente_Liste
                         Where Eintrag.Dokument.ToLower = fi_Ziel.Name.ToLower
                         Select Eintrag
 
                If DS.Count = 0 Then Return False
                Dim BSpos = BS_Ablagedokumente_Liste.ToList.IndexOf(DS.First)
 
                Dokument = BS_Ablagedokumente_TypRow(BSpos)
                Dokument.Dokument = fi_Ziel.Name
            Else
 
                'Speichern
                Me.Validate()
                BSAblagedokumente.EndEdit()
                dict_BS_Pos.Clear()
                dict_BS_Pos.Add(BSAblagedokumente, BSAblagedokumente.Position)
                mod_Saver.SaveDataset(Me.AblageDB, dict_BS_Pos, _
                  AblagedokumenteTableAdapter.Adapter)
                AblagedokumenteDataGridView.Refresh()
            End If
            'speichern beendet
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try
    End Function