ファイルの拡張子を取得する

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

GetExtension関数

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

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

    On Error GoTo Catch

    GetExtension = ""

    With CreateObject("Scripting.FileSystemObject")
        GetExtension = .GetExtensionName(filePath)
    End With

    Exit Function

Catch:
    Call ShowErrorMessage("GetExtension")

End Function

実行方法

'==================================================
' <summary>
' GetExtension関数のテスト
' </summary>
'==================================================
Sub TestGetExtension()

    Dim result As String

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

    MsgBox result

End Sub

実行結果