拡張子を除くファイル名を取得する

2019年6月24日2021年8月22日

GetFileNameWithoutExtension関数

引数のファイルパスから拡張子を除くファイル名を取得する関数。
※ ShowErrorMessage関数についてはリンク先をご参照ください。

'==================================================
' <summary>
' 拡張子を除くファイル名を取得する
' </summary>
' <param name="filePath">ファイルパス</param>
' <returns>拡張子を除くファイル名</returns>
'==================================================
Public Function GetFileNameWithoutExtension(ByVal filePath As String) _
        As String

    On Error GoTo Catch

    GetFileNameWithoutExtension = ""

    With CreateObject("Scripting.FileSystemObject")
        GetFileNameWithoutExtension = .GetBaseName(filePath)
    End With

    Exit Function

Catch:
    Call ShowErrorMessage("GetFileNameWithoutExtension")

End Function

実行方法

'==================================================
' <summary>
' GetFileNameWithoutExtension関数のテスト
' </summary>
'==================================================
Sub TestGetFileNameWithoutExtension()

    Dim result As String

    result = GetFileNameWithoutExtension("C:\Test\aaa.txt")

    MsgBox result

End Sub

実行結果