Excel VBA 从一个带文件夹名和文件名的字符串里提取文件夹名和文件名

从指定的带有路径和文件名的字符串里提取文件名：
Dim sFile as string
Dim sFileName as string
Dim sPath as string

sFile="D:\xxx\xxx\xxx\aa.xlsx"
sFileName=Split(sFile,"\")(Ubound(Split(sFile,"\")))

sPath=mid(sFile,1,len(sFile)-len(Split(sFile,"\")(Ubound(Split(sFile,"\"))))-1)