【VBA】親のフォルダーパスを取得(GetParentFolderName)

FileSystemObjectのGetParentFolderNameメソッドについてです。

GetParentFolderNameメソッド

指定したパスの親のフォルダーパスを返します。

FileSystemObject.GetParentFolderName(path)

引　数	必須 / 省略可	詳　細
パス (path)	必須	・フォルダーパスを指定。

※指定したフォルダーの存在は確認できません。指定したフォルダー名が違っても親フォルダーパスは取得できます（親フォルダーがある場合）

FolderExistsメソッドで指定したフォルダーが存在するかを判定してから親フォルダーパスを取得。

Sub test()

Dim path As String: path = "D:\sample\test"

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FolderExistsで指定したフォルダーが存在するかを判定してから処理

If fso.FolderExists(path) Then

Debug.Print fso.GetParentFolderName(path)

Else

MsgBox "指定したフォルダーが存在しません"

End If

End Sub

【結果】

D:\sample