【VBA】フルパスからファイルの拡張子を取得する

2020.11.21

フルパスからファイルの拡張子を取得する方法は
複数あります！

ここでは私が可読性が良いと考える方法を
記載します！

VBA

ここでは例として、
　・デスクトップ配下のファイル「aiueo.txt」の
　・拡張子を取得
します。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim fileFullPath As String
    Dim extension As String
    
    'ファイルのパスを指定
    fileFullPath = "C:\Users\user\Desktop\aiueo.txt"
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    '拡張子を取得
    extension = fso.GetExtensionName(fileFullPath)
    
    MsgBox (extension)
    
    '後片付け
    Set fso = Nothing
    
End Sub

「FileSystemObject」の「GetExtensionName」メソッドを用いて、フルパスからファイルの拡張子を取得します。

実行結果

フルパスからファイルの拡張子を取得できました。

実行結果
実行結果

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「FileSystemObject」の「GetExtensionName」メソッド

GetExtensionName メソッド (Visual Basic for Applications)
Office VBA リファレンス トピック
learn.microsoft.com