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
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00120806694030762]