设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1)，完成下列程序使这三个控件可以同步变化。
Private Sub Dir1_Change()
______
End Sub
Private Sub File1_Click()
MsgBox File 1.FileName
End Sub

【参考答案】

Did.Path=DriveA.Drive,FileA.Path=DirA.path