Как в VBA прописать директорию выше относительно файла

[brik]

Насколько знаю в VBA прописывается путь по директории 2 способами

ThisWorkbook.Path - относительный путь к папке или доп файлу, лежащей в директории файла типа ThisWorkbook.Path & "\Папка1\Папка2\"
ThisWorkbook.FullName - абсолютный путь когда путь явно задаешь типа iFullName = "C:\Temp\Test.xls"

и вот вопрос - как прописать путь относительно папки В КОТОРОЙ лежит файл

как пример

Папка Тест
В ней несколько подпапок Тест1,Тест2,Тест3 на одном уровне

Файл Excel лежит в папке Тест1
Как прописать путь от него к папке Тест3 (не применяя абсолютный путь типа C:\Тест\Тест3) ?

Проблема в 2 причинах
1.ThisWorkbook.Path не могу использовать тк по условию исходные файл и путь лежат в папках на 1 уровне
2.Нужен относительный путь тк файл использую на флешке в разных компах а там диск может определится разными буквами

правильно ли будет так

ThisWorkbook.Path = "\..\Тест\Тест3" ??? - предполагается что директория \..\Тест\ выше директории Тест1 (в Тест1 лежит файл Excel)
ThisWorkbook.Path = "\..\Тест3"
ThisWorkbook.Path = & "\Тест3"

или как вариант ThisWorkbook.Path App.Path & "\" & "Папка\Папка3" или ActiveWorkbook.Path ThisWorkbook.Path App.Path & "\" & "Папка\Папка3"
или ChDir ThisWorkbook.Path & "\" & "Папка\Папка3" еще варианты chdir(thisworkbook.path) ChDrive ThisWorkbook.Path

[SAS888]

Путь родительской папки можно получить, например, так:

Sub qq()
    Set p = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
    MsgBox p.ParentFolder
End Sub

[Казанский]

brik, у Вас путаница какая-то.
1. ThisWorkbook.Path и ThisWorkbook.FullName всегда возвращают абсолютные пути.
2. Эти свойства Read-only, присвоить им ничего нельзя.
3. Арр - это что?

Папка Тест
В ней несколько подпапок Тест1,Тест2,Тест3 на одном уровне
Файл Excel лежит в папке Тест1
Как прописать путь от него к папке Тест3 (не применяя абсолютный путь типа C:\Тест\Тест3) ?

Например так

p = ThisWorkbook.Path
p = Left(p, InStrRev(p, "\")) & "Тест3"

[brik]

ну вот так например пробую
Исходный файл Проверка дирUP.xls лежит в папке Тest\Test1
его нужно скопировать макросом в Тest\Test3

так делаю

Sub Директория_вверх()
p = ThisWorkbook.Path
p2 = Left(p, InStrRev(p, "\")) & "Test3"
ThisWorkbook.SaveCopyAs p & p2 & "_" & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "HH.mm") & ".xls"
End Sub

не получается ...
пример приложил
исходный файл с макросом в папке Test\Test1

[brik]

если так

Sub Директория_вверх()
p = ThisWorkbook.Path
p = Left(p, InStrRev(p, "\")) & "Test3"
ThisWorkbook.SaveCopyAs p & "_" & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "HH.mm") & ".xls"
End Sub

то файл копируется но в директорию Тest а не в Test3

[brik]

мда интуитивно получилось

Sub Директория_вверх()
p = ThisWorkbook.Path
p = Left(p, InStrRev(p, "\")) & "Test3"
ThisWorkbook.SaveCopyAs p & "\" & "Проверка дирUP" & "_" & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "HH.mm") & ".xls"
End Sub

Исходный файл в папке Test\Test1 - копируется в папку Test\Test3

C проверкой директории Test3 - если ее нет или еще что то не копируем

Sub Директория_вверх()
p = ThisWorkbook.Path
p = Left(p, InStrRev(p, "\")) & "Test3"
If Dir(p, vbDirectory) = "" Then
MsgBox "Директория удалена,перемещена или переименована !", , "Сообщение" '
Exit Sub
Else
ThisWorkbook.SaveCopyAs p & "\" & "Проверка дирUP" & "_" & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "HH.mm") & ".xls"
End Sub

Спасибо Казанский и SAS888 за ответы !