7491
社区成员
文件路径显示问题
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”）
而后面再包含子目录的话就没有这个问题，请问怎么改代码？
多谢了！
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”）
而后面再包含子目录的话就没有这个问题，请问怎么改代码？
多谢了！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
of123 2008-04-02
这是因为根目录自带一个"\":
Private Sub File1_DblClick()
Text1.Text = Replace(File1.path & "\" & File1.FileName, "\\", "\") '在文本框中显示文件的路径
End Sub
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
找最后一个字符的方法有很多的，比如:
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
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