Folderオブジェクト - ParentFolderプロパティ

---

【書式】

Folder.ParentFolder

フォルダの親フォルダ名を返します。

Sub test46()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「C:\Work」を表示します
    MsgBox FSO.GetFolder("C:\Work\Sub").ParentFolder
    Set FSO = Nothing
End Sub