VBA ファイルシステムオブジェクト・GetExtensionName

■Pathで表されるパスから拡張子を取得する

Function GetExtensionName(Path As String) As String

VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary