vbs根据文件名取得文件Title(文件名中不含扩展名的部分)

vbs根据文件名取得文件Title(文件名中不含扩展名的部分)：

'如文件名为：abc.txt, 则返回"abc"
Function GetFileTitle(sFileName)        '求文件的名称(不含扩展名)
    Dim pos
    pos = InStrRev(sFileName, ".")      '从字符串尾部向前搜索子串(".")
    if(pos = 0) Then                    '文件无扩展名
        GetFileTitle = sFileName
    else
        GetFileTitle = Left(sFileName, pos - 1)
    end if
End Function

const FullName= "Text.abc.txt"
Dim sFileTitle

sFileTitle = GetFileTitle(FullName)
MsgBox sFileTitle