相対パスのショートカットフォルダーを作成する方法

http://www.projectgroup.info/tips/Windows/comm_0 …

このページにあるように
リンク先を

%windir%\explorer.exe ..\..\aaa\bbb\

のようにすることで

相対パスのショートカットフォルダーを作成することができます。

これをVBAでやりたいのですが
うまくいきません。

VBAでのショートカットの作成方法は
https://www.moug.net/tech/acvba/0020025.html

ここに書かれてあります。

.TargetPath = "%windir%\explorer.exe ..\..\aaa\bbb\"

とやると出力結果の最初と最後に"が自動で付加されてしまい、
"%windir%\explorer.exe ..\..\aaa\bbb\"
ショートカットとして機能しません。

.TargetPath = "%windir%\explorer.exe"" ""..\..\aaa\bbb\"

とやってみても""で%windirのところを囲むと
%windir%が機能しないのでショートカットが機能しません。

.TargetPath = "C:\Windows\explorer.exe"" ""..\..\aaa\bbb\"

とやると
C:\Windows\aaa\bbb

のようになってしまい、うまくいきません。

.RelativePathというのが使えそうな気がしたのですが
ここを変えてもうまくいきませんでした。


どうすれば良いでしょうか？
.TargetPath = "%windir%\explorer.exe"
でショートカットを作成した後に
バイナリを直接改変するしかないでしょうか？

No.1 回答者： artoo 回答日時： 2015/12/20 02:17

.TargetPath = "%windir%\explorer.exe"

.Arguments = "..\..\aaa\bbb\"
ですね。
参考：https://msdn.microsoft.com/ja-jp/library/cc36440 … の「メモ」部分