问一个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:&#

问一个vb的问题，请懂vb的人都进来看一下！ VB的问题，请懂VB的都进来指点 VB的一个问题,进来看下~ 问一个vb的问题 问一个VB的问题 问一个VB的界面问题，会的都来 vb高手请进，问一个有关vb的问题。 请都VB高手一个resize的问题 问一个VB窗体的问题 问一个关于VB的小问题？