VB中怎样做到选择（点击）Dir1中的文件夹列表中的一个文件夹，在Text1中显示这个文件夹的路径？

我的代码：

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Dir1_Click()
Text1.Text = File1.Path & "\"
End Sub

但是使用之后，总是只显示上一级的菜单，这是为什么？

你双击就可以了！