程序代码：

'在窗体界面隐藏 Drive1 磁盘控件，即 Drive1.Visible = False
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive    '这里只能打开D盘的所有目录
End Sub

Private Sub File1_Click()
List1.AddItem Dir1.Path    '在List1 控件中就可以显示你选择的所有目录，包括子目录，怎么使用就看你了。
End Sub

Private Sub Form_Load()
Drive1.Drive = "d:\"   '这里只需要确定你操作的盘符就可以
List1.Clear
List1.Text = ""
End Sub

[此贴子已经被作者于2016-5-11 16:48编辑过]