Sub ひとつ上のまでの階層のパスを取得する()

    対象パス = "C:\test1\test2\test3\" 'ThisWorkbook.Pathでこのファイルのパスを取得
    
    Set システム = CreateObject("Scripting.FileSystemObject")
    
    ひとつ上までのパス = システム.GetFolder(対象パス).ParentFolder
    
    MsgBox ひとつ上までのパス

End Sub