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