文件路径显示问题

云中漫步 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”)
而后面再包含子目录的话就没有这个问题,请问怎么改代码?
多谢了!
...全文
153 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧