Path.GetFileNameWithoutExtension 方法。自己查找name里.的位置然后取到前面也行，就是没重新发明轮子的必要。
去掉扩展名就行了
Public Function GetFileExtention(ByVal sStr As String) As String
On Error Resume Next
Dim i As Integer
i = InStrRev(sStr, ".")
If i = 0 Then Exit Function
GetFileExtention = Mid$(sStr, i + 1, 12)
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024