我有段路径: \\public01\material\access.mdb
            \\public01\material\ac.mdb
            \\public01\material\lsit\acce.mdb
我要怎样才能得到他们的绝对路径,结果如下:
             \\public01\material\
             \\public01\material\
             \\public01\material\lsit\

= StrReverse(Right(StrReverse("\\public01\material\lsit\acce.mdb"), Len("\\public01\material\lsit\acce.mdb") - InStr(1, StrReverse("\\public01\material\lsit\acce.mdb"), "\"))) & "\"

可以写成涵数吗?谢谢

那么函数的形式呢？比如参数是什么多少个，返回值是什么。

StrReverse就是自带的函数啊，返回一个字符串的倒写

楼主也可以用一个笨办法：

Private Sub Command1_Click()
Dim s As String
Dim a As Integer
s = StrReverse(Text1)
a = InStr(s, "\")
If a <> 0 Then s = StrReverse(Mid(s, a, Len(s) - a + 1))
MsgBox s
End Sub

Function tq(a As String) As String
tq = StrReverse(Right(StrReverse(a), Len(a) - InStr(1, StrReverse(a), "\"))) & "\"
End Function

'取路径
Public Function SPATH(cs As String) As String
    SPATH = Left(cs, InStrRev(cs, "\"))
End Function

'取文件名
Public Function SFile(cs As String) As String
    SFile = Mid(cs, InStrRev(cs, "\") + 1)
End Function