ファイル名と拡張子を分けて取得する【FileSystemObject】【ExcelVBA】

構文

Object.GetExtensionName(Path As String)

Object.GetBaseName(Path As String) 

GetExtensionName/GetBaseNameのサンプルコード

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■拡張子のみ取得
    Debug.Print fso.GetExtensionName("C:\vba\sample.txt")   'txt
    Debug.Print fso.GetExtensionName("sample.txt")          'txt

    '■拡張子なしのファイル名取得
    Debug.Print fso.GetBaseName("C:\vba\sample.txt")        'sample
    Debug.Print fso.GetBaseName("sample.txt")               'sample


    '■フォルダのみ指定した場合
    Debug.Print fso.GetBaseName("C:\vba")                   '"vba"
    Debug.Print fso.GetExtensionName("C:\vba")              '""


End Sub

注意点

• FileSystemObjectを使用しなくてもInstrRev関数を使用し、取得することも可能です。
• 実際にファイルが存在するかどうか確認はしません。単純に文字列として処理します。

関連記事

• フォルダの存在を調べる【FolderExistsメソッド】【FileSystemObject】
• ファイルの存在を調べる【FileExistsメソッド】【FileSystemObject】