文件路径显示问题

云中漫步 2008-04-02 11:25:29
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”)
而后面再包含子目录的话就没有这个问题,请问怎么改代码?
多谢了!
...全文
109 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
of123 2008-04-02
这是因为根目录自带一个"\":

Private Sub File1_DblClick()
Text1.Text = Replace(File1.path & "\" & File1.FileName, "\\", "\") '在文本框中显示文件的路径
End Sub
回复
Kevin2328 2008-04-02
判断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


回复
zhcll 2008-04-02
多加一步: 如果最后面有"\"直接把最后面的"\"去掉.不就ok了吗?
回复
cbm6666 2008-04-02
这个问题与 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

回复
云中漫步 2008-04-02
多谢上面各位了,问题已经解决,散分!
回复
舉杯邀明月 2008-04-02
楼主,怎么发两次贴子呀?

if (len(File1.path)=3) then
Text1.Text = File1.path & File1.FileName
else
Text1.Text = File1.path & "\" & File1.FileName
endif
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-02 11:25
社区公告
暂无公告