VB获取目录的问题

sFullName = "x:\abc\123.txt "
sPath = Left(sFullName, InStrRev(sFullName, "\"))
sPath即是路径

笨方法

a=split(全路径,"\")
for i=0 to UBound(a)-1
目录=目录 & a(i) & "\"
next
print 目录

a = InStrRev("x:\abc\123.txt", "\")
Path = Left$("x:\abc\123.txt", a)

str1="x:\abc\123.txt"
k = InStr(str1, "123.txt")
h = Len(str1)
str1 = Left("x:\abc\123.txt", h - k)
Print str1