Private Sub Form_Load()
Dir1.Path = "D:Mytool"
End Sub
三、FileListBox（文件列表框）控件：
跟前面两个控件一样，本控件能够自动显示符合条件的文件清单。如图六：
图六
文件列表框控件主要有两个属性，即 Path 属性与 FileName 属性，前者代表文件的路径，从显示路径的功能上来说，比后者更简便一些?；后者则用来返回或设置所选文件的路径与文件名，其语法是：
文件列表框名称.FileName = 路径
比如，我们要在窗体启动时将 E:稿件 目录下的所有 ZIP 文件列出来，程序可以这样写：
Private Sub Form_Load()
File1.FileName = "E:稿件*.zip"
End Sub
结果如图七：
图七
四、三个控件的连接：
上面我们就三个控件进行了分别的学习，在程序中，它们却是互不关连的，并不是只要在窗体中创建了它们，然后对某个控件（如磁盘列表框）进行操作，其他控件就会自动显示相应的磁盘下的文件，这需要用程序进行实现。
1、将磁盘列表框的操作赋值给文件夹列表框的 Path 属性，在磁盘列表框的 Change 事件中输入如下代码：
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
2、对文件夹列表框控件进行的操作，直接影响文件列表框所显示的内容：
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
最后结果如图八：
图八