DriveDirFile: code

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

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
MsgBox File1.FileName & " in " & Dir1.Path
End Sub

[VB Web] - [hlrnet] - [copyright]