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

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

以下是显示的对话框：FolderBrowserDialog

有人可以帮忙吗？我究竟做错了什么？

谢谢，
梅布尔

Answer 1

我95％肯定这是Windows 10的问题。我已将.RootFolder设置为Environment.SpecialFolder枚举的所有59个成员。其中一些显示目录树;很多人没有。 MyDocuments和Personal都没有。最适合我的目的的价值是MyComputer。另一种选择似乎是“自己动手”。

VB中的FolderBrowserDialog不会展开目录树

1 个答案: