ファイルやフォルダの親フォルダ名のみ取得する【.ParentFolder.Name】【FileSystemObject】【ExcelVBA】

ファイルの属するフォルダ名やフォルダの親フォルダ名取得サンプルコード

Public Sub sample()
 
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
     
    '■ファイルの存在するフォルダ名のみを取得
    Debug.Print fso.GetFile("C:\vba\aaa\sample.txt").ParentFolder.Name    'aaa
    
    '■フォルダ名のみを取得
    Debug.Print fso.GetFolder("C:\vba\aaa").ParentFolder.Name        'vba

End Sub

注意点

• 親フォルダのパスが取得したい場合はこちら。
• ファイルに属するフォルダのパスが取得したい場合はこちら。

関連記事

• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• フォルダ内指定条件のファイル名をフルパスで配列として取得する
• 指定パスの末尾に円マーク(\)付与する【パーツ化】
• ファイル名と拡張子を分けて取得する【FileSystemObject】
• ファイル名を取得する【GetFileNameメソッド】【FileSystemObject】
• WorkSheetオブジェクトからブックを閉じる(Parentプロパティ)