Imports Microsoft.Win32
 
Private Sub MusterVorlagenToolStripMenuItem_Click(sender As System.Object, e As _
  System.EventArgs) Handles MusterVorlagenToolStripMenuItem.Click
 
        Dim MusterPfad As String = ""
 
        Dim str As String = "Wählen Sie einen Muster-Ordner," & vbCrLf
        FolderBrowserDialog1.Description = str
        FolderBrowserDialog1.ShowNewFolderButton = False
 
        Dim MeinKey As RegistryKey
        Dim TemplatesPath As String
 
        ' Einen Registryzweig zum lesen öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
          "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell" & _
          "Folders")
        ' Diverse Testschlüssel auslesen 
        TemplatesPath = MeinKey.GetValue("Templates", "")
        ' Den Registryzweig schließen 
        MeinKey.Close()
 
 
        ' Einen Registryzweig zum Schreiben öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
          "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell" & _
          "Folders", True)
        ' Diverse Testschlüssel anlegen 
        MeinKey.SetValue("Templates", Muster_Path)
        ' Die angelegten Testschlüssel wieder löschen 
        'MeinKey.DeleteValue("Stringschlüssel")
        ' Den Registryzweig schließen 
        MeinKey.Close()
 
 
        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Templates
        FolderBrowserDialog1.SelectedPath = Muster_Path
        FolderBrowserDialog1.ShowDialog()
        MusterPfad = FolderBrowserDialog1.SelectedPath
 
        ' Einen Registryzweig zum Schreiben öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
           "Software\Microsoft\Windows\" _
           & "CurrentVersion\Explorer\User Shell Folders", True)
        ' Diverse Testschlüssel anlegen 
        MeinKey.SetValue("Templates", TemplatesPath)
        ' Die angelegten Testschlüssel wieder löschen 
        'MeinKey.DeleteValue("Stringschlüssel")
        ' Den Registryzweig schließen 
        MeinKey.Close()
 
 
    End Sub