Private Function Kopiere_Datei(FileName As String) As Boolean
        If String.IsNullOrWhiteSpace(FileName) Then Return False
 
        Dim _overwrite As Boolean = False
 
        Dim AblageID = CInt(IDDatarowAblagedetail.Text)
 
        Dim Ordner_Ziel = get_Dokumente_Ordner(AblageID)
 
        Dim fi_Quelle As New System.IO.FileInfo(FileName)
        Dim fi_Ziel As New System.IO.FileInfo(System.IO.Path.Combine( _
          Ordner_Ziel, fi_Quelle.Name))
 
        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_Ordner(AblageID)
        fi_Quelle.CopyTo(fi_Ziel.FullName, True)
 
        Dim Dokument As AusgabeDB.Rueckgabe_DokumentRow
 
        If _overwrite = True Then
            If BS_RueckgabeDokument_TypRow Is Nothing Then Return False
            'Datensatz suchen, der überschrieben werden soll
            Dim DS = From Eintrag In BS_RueckgabeDokument_Liste
                     Where Eintrag.Dokument.ToLower = fi_Ziel.Name.ToLower
                     Select Eintrag
 
            If DS.Count = 0 Then Return False
            Dim BSpos = BS_RueckgabeDokument_Liste.ToList.IndexOf(DS.First)
 
            Dokument = BS_RueckgabeDokument_TypRow(BSpos)
            Dokument.Dokument = fi_Ziel.Name
        Else
            BS_RueckgabeDokument.AddNew()
            tbRueckgabedokument.Text = fi_Ziel.Name
            tbx_IDAblagedetails.Text = IDDatarowAblagedetail.Text
            tbDatarowRueckgabe_abgelegtvon.Text = aktBenutzerRow.Benutzername
        End If
        Return True
    End Function