其实很简单的,如图:
程序代码:
'在窗体界面隐藏 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
请不要选我!!!