例如目录路径为“C:\Documents and Settings\Administrator\桌面\数据\AAAA\BBBB\”，如何在text中得到“BBBB”?

或者说字符串“C:\Documents and Settings\Administrator\桌面\数据\AAAA\BBBB\”，如何在text中得到“BBBB”?

需要注意的是，目录层数不一定。

经过自己的琢磨，已经自己解决了。

Dim ss2() As String

ss2 = Split(Text1.Text, "\")

MsgBox = ss2(Len(Text1.Text) - Len(Replace(Text1.Text, "\", "")) - 1)