VBAファイルやフォルダーの親フォルダー取得(ParentFolder)

FileオブジェクトとFolderオブジェクトのParentFolderプロパティについてです。

ParentFolderプロパティ

指定したファイルやフォルダーの親フォルダーオブジェクトを返します。値の取得のみ可能です。

ファイルの場合：FileObject.ParentFolder

フォルダの場合：FolderObject.ParentFolder

Sub test()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFileメソッドでFileオブジェクトをセット

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'FileオブジェクトのParentFolderプロパティで親フォルダー名取得

Debug.Print f.ParentFolder.Name

End Sub

【結果】

sample

Sub test2()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFolderメソッドでFolderオブジェクトをセット

Dim fol As Folder

Set fol = fso.GetFolder("D:\FSO\Folder1")

'FolderオブジェクトのParentFolderプロパティで親フォルダー名取得

Debug.Print fol.ParentFolder.Name

End Sub

【結果】

FSO