从文件名中剥离文件扩展名

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

打印 MyFile.something

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