Script Paradigm

ファイル名から拡張子を除去

ファイル命から拡張子を除去した名前を抽出します。

Option Explicit
MsgBox fnGetFileBaseNameByFileName("test.txt")
Function fnGetFileBaseNameByFileName(ByVal strName)
    Dim iIdx
    iIdx = InStrRev(strName,".")
    If iIdx > 0 Then
        strName = Left(strName,iIdx - 1)
    End If
    fnGetFileBaseNameByFileName = strName
End Function

[] [wsh][0.00205302238464355]