文件路径显示问题

[云中漫步]

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”）
而后面再包含子目录的话就没有这个问题，请问怎么改代码？
多谢了！

[舉杯邀明月]

楼主,怎么发两次贴子呀?

if (len(File1.path)=3) then
    Text1.Text = File1.path & File1.FileName
else
    Text1.Text = File1.path & "\" & File1.FileName
endif

[云中漫步]

多谢上面各位了，问题已经解决，散分！

[cbm6666]

这个问题与 app.path完全一样有 \ 的问题, 主目录最后面带\ 而其它子目录不带 \

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '设置目录路径。
End Sub

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

Private Sub File1_DblClick()
Text1.Text = IIf(Right(Dir1.Path, 1) = "\", Dir1.Path, Dir1.Path & "\") & File1.FileName '在文本框中显示文件的路径
End Sub

[zhcll]

多加一步： 如果最后面有"\"直接把最后面的"\"去掉.不就ok了吗？

[Kevin2328]

判断File1.path最后一个字符是否为"\",如果是"\"就不用连这个字符了.
找最后一个字符的方法有很多的，比如:
if mid(File1.path,len(File1.path)-1,1)="\" then
Text1.Text = File1.path & File1.FileName '在文本框中显示文件的路径
else
Text1.Text = File1.path & "\" & File1.FileName '在文本框中显示文件的路径
end if

[of123]

这是因为根目录自带一个"\":

Private Sub File1_DblClick()
Text1.Text = Replace(File1.path & "\" & File1.FileName, "\\", "\") '在文本框中显示文件的路径
End Sub