VBA｜GetParentFolderNameメソッド(ファイルシステムオブジェクト)

FileSystemObjectのGetParentFolderNameメソッドは指定されたパスのフォルダの親フォルダの名前を含むパスの文字列を返します。

※ファイルシステムオブジェクト(FileSystemObject)についてはこちら

GetParentFolderNameメソッドの構文

構文

ファイルシステムオブジェクト.GetParentFolderName(パス(Path))

GetParentFolderNameメソッドの構成要素と引数

構成要素と引数

要素／引数	必須／任意	説明
ファイルシステムオブジェクト (FSO)	必須	ファイルシステムオブジェクトを指定します。
パス (Path)	必須	親フォルダの名前を含むパス文字列を返したいフォルダやファイルのパスを指定します。

その他のポイント

パス(Path) に指定されたものに親フォルダがない場合は空文字””を返します。

パス(Path) に指定されたものが実在するかの判定はできません。

GetParentFolderNameメソッドをつかったサンプルマクロ

VBAサンプルコード

  Copy
Option Explicit

Sub ファイルシステムオブジェクト_GetParentFolderNameメソッド()

    'ファイルシステムオブジェクトを使うため準備
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject

    'GetParentFolderNameメソッドの使用例
    Debug.Print "①"; FSO.GetParentFolderName("C:\Users\ユーザー名\Desktop\Test") 'フォルダパスを指定
    Debug.Print "②"; FSO.GetParentFolderName("C:\Users\ユーザー名\Desktop\Test\サンプルPDF.pdf") 'ファイルパスを指定
    Debug.Print "③"; FSO.GetParentFolderName("C:\Users\存在しない親フォルダ\存在しない子フォルダ") '存在しないパス

End Sub

11行目

FileSystemObjectのGetParentFolderNameメソッドで”Test”フォルダの親フォルダのパスを表示します。

12行目

FileSystemObjectのGetParentFolderNameメソッドで”サンプルPDF.pdf”の親フォルダのパスを表示します。

13行目

FileSystemObjectのGetParentFolderNameメソッドで”存在しない子フォルダ”の親フォルダのパスを表示します。
(このコードでは、実際には存在していないフォルダを指定しています。)

実行結果

①C:\Users\ユーザー名\Desktop
②C:\Users\ユーザー名\Desktop\Test
③C:\Users\存在しない親フォルダ

FileSystemObjectのGetParentFolderNameメソッドではフォルダが実際に存在するかの判定はされないため、③の場合でも架空のフォルダ名が返されています。

PR