01.Set Fso = WScript.CreateObject( "Scripting.FileSystemObject" )
02.strCurPath = WScript.ScriptFullName
03.Set obj = Fso.GetFile( strCurPath )
04.Set obj = obj.ParentFolder
05.strCurPath = obj.Path
06.
07.Set WshShell = WScript.CreateObject("WScript.Shell")
08.
09.strDesktop = WshShell.SpecialFolders("Desktop")
10.Set oShellLink = WshShell.CreateShortcut(strDesktop & "\TeraPad.lnk")
11.oShellLink.TargetPath = strCurPath & "\TeraPad.exe"
12.oShellLink.WindowStyle = 1
13.oShellLink.IconLocation = strCurPath & "\TeraPad.exe, 0"
14.oShellLink.Description = "ショートカット スクリプト."
15.oShellLink.WorkingDirectory = strCurPath
16.oShellLink.Save
17.
18.strDesktop = WshShell.SpecialFolders("SendTo")
19.Set oShellLink = WshShell.CreateShortcut(strDesktop & "\_TeraPad.lnk")
20.oShellLink.TargetPath = strCurPath & "\TeraPad.exe"
21.oShellLink.WindowStyle = 1
22.oShellLink.IconLocation = strCurPath & "\TeraPad.exe, 0"
23.oShellLink.Description = "ショートカット スクリプト."
24.oShellLink.WorkingDirectory = strCurPath
25.oShellLink.Save
ウインドウ
表示
ファイル
sendto にショートッカット
