2017助理医师考试视频:问一个vb的问题，请懂vb的人都进来看一下！

用vb编制了这样一个程序用来打开文件
以下是原代码
Dim setfilename As String
——————————————————————
Private Sub Command1_Click()
RetVal = Shell(setfilename, 1)
End Sub
———————————————————————
Private Sub Command2_Click()
End
End Sub
———————————————————————
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
———————————————————————
Private Sub Dir1_Click()
Text1.Text = File1.Path
End Sub
———————————————————————
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
———————————————————————
Private Sub Exit_Click()
End
End Sub
———————————————————————
Private Sub File1_Click()
setfilename = File1.Path & "\" & File1.FileName
Text1.Text = File1.Path & "\" & File1.FileName
End Sub
———————————————————————
Private Sub File1_DblClick()
RetVal = Shell(setfilename, 1)
End Sub

为什么当文件直接在硬盘下时（如：文件路径是F:\fg171_skycn.exe）点击后text1中会显示出“F:\\fg171_skycn.exe”即多了一个“\”
还有当点击dir1时，text1显示不完全当点击下级文件夹时才显示上级文件夹（如：点击C:\My Documents时显示C:\，而点击C:\My Documents下的My Music时才显示C:\My Documents）这是什么问题？
请帮我分析一下！谢谢！！！！！