VBのFolderBrowserDialogはディレクトリツリーを展開しません

Question

ユーザーが作業ディレクトリを選択できるようにするために、FolderBrowserDialog（VB Express 2013）を使用しようとしています。私は多くの例（すべて非常に似ている）を見つけましたが、物事はうまくいかないようです。
マイコード：

Sub TestIt() 
    Dim dlgChooseFolder As New FolderBrowserDialog 
    Dim dr As DialogResult 
    dlgchoosefolder.Description = _ 
     "Select the directory that you want to use As the default." 

    ' Default to the My Documents folder. 
    dlgChooseFolder.RootFolder = Environment.SpecialFolder.Personal 
    'dlgChooseFolder.SelectedPath = "c:\users\mary\Documents\WebStuff" 
    dr = dlgChooseFolder.ShowDialog 
    If (dr = DialogResult.OK) Then 
     Debug.Print("dr = OK" & vbCrLf & dlgChooseFolder.SelectedPath) 
    Else 
     Debug.Print("dr <> OK") 
    End If 
End Sub 

ダイアログが表示されますが、ツリー内の唯一のエントリは、「ドキュメント」であり、そのサブディレクトリを表示するために展開されません。 ShowDialogの前に明示的にSelectedPathプロパティを設定しても、常にRootFolderにリセットされます。 FolderBrowserDialogが

誰でも助けることができます：

ここで表示されるダイアログボックスはありますか？私は間違って何をしていますか？

おかげで、
マーブル

Answer 1

私はこれは、Windows 10の問題である95％確信しています。私は.RootFolderをEnvironment.SpecialFolder列挙の59人のメンバーすべてに設定しました。それらのうちのいくつかはディレクトリツリーを表示します。多くはしません。 MyDocumentsも個人的な仕事もありません。私の目的に最も適した値はMyComputerです。もう1つの選択肢は、 "あなた自身のロール"と思われる。