Vista以降のShell.ApplicationのNameSpace(フォルダパス)で"\..\"記法が使えない。

なので、

Shell.NameSpace(fso.GetAbsolutePathName(Path) & "\..\")

は、

Shell.NameSpace(fso.GetParentFolderName(fso.GetAbsolutePathName(Path)))

に修正してください。

ShellはWindowsの顔ですから、version upで仕様が変わるのは、仕様がありません。