Excel VBA フルパスからファイル名、拡張子、親フォルダの取得 FileSystemObject

フルパスからファイル名、拡張子、ディレクトリの取得する方法

やりたい事

ファイルのフルパスからファイル名、拡張子、ディレクトリを「FileSystemObject」を使用して取得する方法を解説します。

サンプルコード

Sub fileSystemObjectSample()
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    filePath = "D:\Excel\macro.xlsm"
    
    'ファイル名
    Range("A1") = objFSO.GetFileName(filePath)
    
    '拡張子を除いたファイル名
    Range("A2") = objFSO.GetBaseName(filePath)
    
    '拡張子
    Range("A3") = objFSO.GetExtensionName(filePath)
    
    'ファイルのある親フォルダパス
    Range("A4") = objFSO.GetParentFolderName(filePath)
End Sub

参考資料

Docs