例えばフォルダ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
