如何得到N层目录的最后一层？
例如目录路径为“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)