FileSystemObjectオブジェクト - GetExtensionNameメソッド

---

【書式】

FileSystemObject.GetExtensionName(path)

ファイルの拡張子を返します。ピリオドは含みません。

引数pathにはファイル名を指定します。

ファイル名のうち拡張子を除くベース名を取得するにはGetBaseNameプロパティを使います。

Sub test16()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''xlsを返します
    MsgBox FSO.GetExtensionName("C:\Work\Book1.xlsx")
    Set FSO = Nothing
End Sub