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