Vb.net VB中的FolderBrowserDialog不展开目录树

我试图使用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  

子测试（）
Dim dlgChooseFolder作为新文件夹浏览对话框
结果是使dr变暗
dlgchoosefolder.Description=\
“选择要用作默认目录的目录。”
'默认设置为“我的文档”文件夹。
dlgChooseFolder.RootFolder=Environment.SpecialFolder.Personal
'dlgChooseFolder.SelectedPath=“c:\users\mary\Documents\webstaff”
dr=dlgChooseFolder.ShowDialog
如果（dr=DialogResult.OK），则
Debug.Print（“dr=OK”&vbCrLf&dlgChooseFolder.SelectedPath）
其他的
Debug.Print（“drok”）
如果结束
端接头

对话框将显示，但树中唯一的条目是“Documents”，它不会展开以显示其子目录。即使在显示对话框之前显式设置SelectedPath属性，它也总是重置为根文件夹

以下是显示的对话框：

有人能帮忙吗？我做错了什么

谢谢，

---

Mable

我95%确定这是Windows 10的问题。我已将.RootFolder设置为Environment.SpecialFolder枚举的所有59个成员。其中一些显示目录树；很多人没有。既不是我的文件，也不是我的私人工作。最适合我的价值是MyComputer。另一种选择似乎是“自己滚”。如果删除

dlgChooseFolder.RootFolder=Environment.SpecialFolder.Personal

行，会发生什么情况？我刚刚在三台不同的机器上尝试了相同的操作，我看到了相同的行为。前两个更改了Documents文件夹的位置，所以我认为这可能是问题所在，但第三个没有，并且表现相同。音乐文件夹也做了同样的事情，但上面的级别，即

SpecialFolder.UserProfile

正常工作。我想知道这是否是Windows10的问题。我不记得在旧版本上看到过这一点，但我不确定在这两个版本之前是否将

RootFolder

设置为Documents。如果没有明确设置，RootFolder默认为桌面。目录树工作正常，但允许用户选择我不希望他们选择的文件夹。您可能对Windows 10问题有所了解。这段代码几年前运行正常。