Private Sub btn_Neues_Dokument_Click(sender As Object, e As EventArgs) _
    Handles btn_Neues_Dokument.Click
        BSAblagedokumente.AddNew()
 
    End Sub
    Private Sub btn_Dokument_Hinzufuegen_Click(sender As Object, e As _
      EventArgs) Handles btn_Dokument_Hinzufuegen.Click
        Kopiere_Datei(OFD_Starten)
    End Sub
    'Datei holen
    Private Function OFD_Starten() As String
        Using ofd As New OpenFileDialog
            With ofd
                .InitialDirectory = Environment.CurrentDirectory
                .Filter = "Alle Dateien| *.*"
                .FileName = ""
                .CheckFileExists = True
                .CheckPathExists = True
                Dim dlgResult As DialogResult = ofd.ShowDialog()
                If dlgResult = Windows.Forms.DialogResult.OK Then
                    Return IO.Path.GetFullPath(ofd.FileName)
                End If
                Return Nothing
            End With
        End Using
    End Function
    'Datei kopieren
    Private Function Kopiere_Datei(ByVal FileName As String)
        Try
            Me.Cursor = Cursors.WaitCursor
            Dim Ordner_Ziel = get_Dokumente_Ablage_Ordner(CInt( _
              tbIDDatarow_Ablagedetails.Text))
            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)))
            DokumentTextBox.Text = FileName
            'falls Ordner gelöscht wurde, Ordner erstellen
            create_Dokumente_Ablage_Ordner(CInt(tbIDDatarow_Ablagedetails.Text))
            fi_Quelle.CopyTo(fi_Ziel.FullName, True)
            'IO.File.Copy(FileName, String.Concat(Ordner_Ziel, 
            ' IO.Path.DirectorySeparatorChar, IO.Path.GetFileName(FileName)))
 
 
 
            '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()
            'speichern beendet
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try
    End Function
 
#Region "Dokumente Ordner prüfen/erstellen"
    Private Function get_Dokumente_Ablage_Ordner(ByVal AblageID As Integer) As _
      String
        Return IO.Path.Combine(Ordner_Dokumente_Ablage, AblageID.ToString)
    End Function
    Private Function create_Dokumente_Ablage_Ordner(ByVal AblageID As Integer) _
      As Boolean
        Dim pfad_Gesamt As String = IO.Path.Combine(Ordner_Dokumente_Ablage, _
        AblageID.ToString)
        If Not IO.Directory.Exists(pfad_Gesamt) Then _
        IO.Directory.CreateDirectory(pfad_Gesamt)
        Return True
    End Function