- 追加された行はこの色です。
- 削除された行はこの色です。
Option Explicit
Dim objWshShell, objShortcut, strHomeDirPath, strTargetDirName, strTargetDirPath
Set objWshShell = WScript.CreateObject("WScript.Shell")
If 0=WScript.Arguments.Count Then
msgbox "no arg"
WScript.Quit
Else
Dim objFileSystem
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
strTargetDirPath = WScript.Arguments(0)
strTargetDirName = objFileSystem.GetBaseName(strTargetDirPath)
End If
strHomeDirPath = objWshShell.ExpandEnvironmentStrings("%HOME%")
Set objShortcut = objWshShell.CreateShortcut(strHomeDirPath & "\" & strTargetDirName & ".lnk")
objShortcut.Description = strTargetDirName
objShortcut.TargetPath = strTargetDirPath
objShortcut.Save