VBA открыть папку до

Question

Я хочу открыть папку перед текущим Каталогом каждый раз. Я попробовал «.. \», но он не работает, вы можете мне помочь с этим N

ThecurrentDirectory= fso.GetParentFolderName(objFile) 
Set myWorkBook = myxlApplication.Workbooks.Open(ThecurrentDirectory & "\..\CLIENTS.xlsx") 

Answer 1

Просто упаковать ThecurrentDirectory в другой fso.GetParentFolderName.

ThecurrentDirectory= fso.GetParentFolderName(objFile) 
Set myWorkBook = myxlApplication.Workbooks.Open(fso.GetParentFolderName(ThecurrentDirectory) & "\CLIENTS.xlsx") 

Answer 2

Если objFile является объектный файл, то вы можете приковать это ParentFolder свойство вместе несколько раз, чтобы получить disred результат:

Dim fso, f 
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
Set objFile = fso.GetFile("C:\Users\best buy\Downloads\stackoverfow\test.xlsm") 

Выход:

• objFile.ParentFolder.ParentFolder = C: \ Users \ best buy \ Downloads