compile errors with file1.path

I cant seem to use file1.path, dir1.path...etc can someone tell me why my program wont compile or give me an alternative measure for this. Ive included my program to view. Thnak you all in advance..Everyone here has been very helpful

May be this helps....

If U Have Drive1, Dir1, File1 Then
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

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

'TO get Full File1.Path Then
Dim sPath As String
sPath = File1.Path & "\" & File1.FileName