vb 获取路径的问题

来源：百度知道 编辑：UC知道 时间：2024/05/07 10:04:39
STR1="x:\dir1\dir2\dir3\dirn\file.txt"
二级目录，也就是dir2的名字已经知道。
现在我要获取\dir3\dirn\file.txt这一部分。
顺便把“\”换成“/”
各位帮忙写个函数吧。

right(STR1,len(STR1)-instr(STR1,dir2)-len(dir2))

replace(STR1,"\","/")

Sub Test()
STR1 = "x:\dir1\dir2\dir3\dirn\file.txt"
p_flag = 0
For i = 1 To 3'3表示要从第三个\开始计算
p_flag = InStr(p_flag + 1, STR1, "\", vbTextCompare)
If p_flag=0 Then GoTo 2000
Next

str2 = Mid(STR1, p_flag + 1)

str3 = Replace(str2, "\", "/")
Print str2
Print str3
exit sub
2000:
msgbox "路径深度不够！"
End Sub