フォルダ間に相互にショートカットを作成するvbs[windows][GTD]

複数フォルダ間に相互にショートカットを作成するvbsを作った。
例えばフォルダA,B,Cをこのvbs上にドロップすると、

• フォルダA内にはB,Cへのショートカット


• フォルダB内にはA,Cへのショートカット


• フォルダC内にはA,Bへのショートカット

が作られる。

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

Dim MyShortcut, MyDesktop

Set objFSO = CreateObject("Scripting.FileSystemObject")

For i = 0 to WScript.Arguments.Count - 1
 For j = 0 to WScript.Arguments.Count - 1
  If i = j then 
   ' do nothind
  else

   ' Create a shortcut object on the desktop
   Set MyShortcut = WSHShell.CreateShortcut(WScript.Arguments(i) & "\" & objFSO.GetFileName(WScript.Arguments(j)) & ".lnk")

   ' Set shortcut object properties and save it
   MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(WScript.Arguments(j))
   'MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
   'MyShortcut.WindowStyle = 4
   'MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
   MyShortcut.Save

  end if
 Next
Next