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

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

sFile="D:xxxxxxxxxaa.xlsx"
sFileName=Split(sFile,"")(Ubound(Split(sFile,"")))

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