通过代开对话框获得文件所在的绝对路径和文件名（不带扩展名）,该如何处理

通过代开对话框获得文件所在的绝对路径和文件名（不带扩展名）
通过代开对话框获得文件所在的路径和文件名（不带扩展名）
例如：CommonDialog1.FileName为：E:\test\test1\student.dbf
如何获得E:\test\test1   和   student
谢谢！

------解决方案--------------------
Dim s As String
s = "E:\test\path\document.txt "
Debug.Print Mid(s, InStrRev(s, "\ ") + 1, InStrRev(s, ". ") - InStrRev(s, "\ ") - 1)
Debug.Print Left(s, InStrRev(s, "\ ") - 1)