Private Sub CopyFolder(Quelle As String, Ziel As String, Optional ByVal _
      deleteFolder As Boolean = True)
 
        'Zielverzeichnis erstellen - Löschen, falls es dort schon existiert
        If deleteFolder Then
            Ziel += Quelle.Substring(Quelle.LastIndexOf("\"), Quelle.Length - _
              Quelle.LastIndexOf("\"))
            If Directory.Exists(deleteFolder) Then
                Directory.Delete(Ziel + "\", True)
            End If
        End If
 
        System.IO.Directory.CreateDirectory(Ziel)
 
        'Alle Dateien kopieren
        'Try
        Dim Dateien As String() = Directory.GetFiles(Quelle)
        For Each Datei As String In Dateien
            Dim Ziel2 As String = Path.Combine(Ziel, Path.GetFileName(Datei))
            Try
                File.Copy(Datei, Ziel2, True)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Next
 
        'Alle Unterverzeichnisse kopieren
        Dim Unterverzeichnisse As String() = Directory.GetDirectories(Quelle)
        For Each Unterordner As String In Unterverzeichnisse
            Dim Unterordnerziel As String = Unterordner.Replace(Quelle, Ziel)
            CopyFolder(Unterordner, Unterordnerziel, False)
        Next
        ' Catch
        'MessageBox.Show("Der zu kopierende Ordner existiert nicht: " + Ziel + 
        ' Environment.NewLine + "Überprüfen Sie bitte den Pfad.", "Fehler", 
        ' MessageBoxButtons.OK, MessageBoxIcon.Error)
        '  End Try
    End Sub