路径中提取字符串

Question

C:\Documents and Settings\Administrator\桌面\NEXT\我想从“C:\Documents and Settings\Administrator\桌面\NEXT\”中提取出“C:\Documents and Settings\Administrator\桌面\”和“NEXT”，请问该如何提取啊？具体代码是什么？谢谢了！

Answer 1

Dim cPath As String, S1 As String, S2 As String
cPath = "C:\Documents and Settings\Administrator\桌面\NEXT\"
S1 = Left$(cPath, Len("C:\Documents and Settings\Administrator\桌面\")): Debug.Print S1
S2 = Mid$(cPath, InStr(1, cPath, "NEXT"), Len("NEXT")): Debug.Print S2