VBA 从文件名中删除文件扩展名

示例

Dim fso As New Scripting.FileSystemObject
Debug.Print fso.GetBaseName("MyFile.something.txt")

版画 MyFile.something

请注意，该GetBaseName()方法已经可以处理文件名中的多个句点。