文件路径显示问题

Question

Private Sub Drive1_Change()
     Dir1.path = Drive1.Drive           '设置目录路径。
End Sub
    
Private Sub Dir1_Change()
     File1.path = Dir1.path           '设置文件路径。
     Text1.Text = Dir1.path
End Sub
    
Private Sub File1_DblClick()
     Text1.Text = File1.path & "\" & File1.FileName   '在文本框中显示文件的路径
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
看上面代码，用text1取到文件路径后，根目录下的文件路径怎么是两个斜杠？（如“D:\\aa.txt”）
而后面再包含子目录的话就没有这个问题，请问怎么改代码？
多谢了！

Answer 1

把这个帖作废了去看这个吧http://topic.csdn.net/u/20080402/11/f2a2205a-9a3f-4f36-98f7-8419df144541.html

Answer 2

     Text1.Text = File1.path & IIf(Right(File1.path, 1) = "\", "", "\") & File1.FileName
或
     Text1.Text = Replace(File1.path & "\" & File1.FileName, "\\", "\")

Answer 3

用这样的代码:
if (len(File1.path)=3) then
    Text1.Text = File1.path & File1.FileName
else
    Text1.Text = File1.path & "\" & File1.FileName
endif