Option Explicit

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

Private Sub drv_discos_Change()
On Error Resume Next
Dir1.Path = drv_discos.Drive
End Sub

Private Sub File1_Click()
Dir1.Path = Shell(File1) 'me dice archivo no encontrado
End Sub