Public Sub SplitFileNameAndCopyFile(ByVal QuellDatei As String, _
                         ByVal ZielVerzeichnis As String, _
                         Optional ByVal Ueberschreiben As Boolean = True)
        ' QuellDatei = Absoluter Pfad der zu kopierende Datei
        ' ZielVerzeichnis (Basisverzeichnis!)
 
        Try
            ' Prüfen, ob Pfade angegeben sind
            If QuellDatei.Length = 0 Or ZielVerzeichnis.Length = 0 Then _
                Throw New Exception("Pfad nicht angegeben.")
 
            Dim fiQuellDatei As New FileInfo(QuellDatei)
            ' Prüfen, ob angegebene Quelldatei vorhanden ist
            If Not fiQuellDatei.Exists Then _
                Throw New Exception("Die zu kopierende Datei nicht vorhanden.")
 
            ' Pfad für Zieldatei zusammensetzen
            Dim fiZielDatei As New FileInfo(Path.Combine(ZielVerzeichnis, _
              fiQuellDatei.Name.Replace("_", "\")))
 
            Try
                ' Erstelle Zielordner, falls noch nicht vorhanden
                If Not fiZielDatei.Directory.Exists Then _
                  fiZielDatei.Directory.Create()
 
                ' Kopiere Datei
                fiQuellDatei.CopyTo(fiZielDatei.FullName, Ueberschreiben)
 
                ' Erfolgreich kopiert -> QuellDatei Löschen
                fiQuellDatei.Delete()
 
            Catch ex As Exception
                ' Fehler beim Kopieren aufgetreten.
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Kopieren")
            End Try
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Datei kopieren")
        End Try
    End Sub