CreateShortcut | UWSC辞典

Contents

1 プログラム実行例
2 この記事は役に立ちましたか？

任意のパスにショートカット（*.lnk）やURLショートカット（*.url）を新規に作成します。WshShortcut オブジェクト（*.lnkの場合）もしくはWshURLShortcut オブジェクト（*.urlの場合）が返ります。作成したショートカットはWshShell.CreateShortcutを実行時に保存されます。

構文

Object = WshShell.CreateShortcut( strPathname )

引数

strPathname 省略可: 作成するショートカットのパスとファイル名

戻り値

プログラム実行例

メモ帳を起動するショートカットファイルを作成

カレントディレクトリにメモ帳.lnkのショートカットリンクを作成します。

使用関数

コマンドプロンプトのショートカットを生成

デスクトップにコマンドプロンプトへのショートカットリンクを作成します。

DIM WshShell = CREATEOLEOBJ("WScript.Shell")
DIM WshShortcut = WshShell.CreateShortcut("メモ帳.lnk")
WshShortcut.TargetPath = "C:\Windows\System32\notepad.exe"
WshShortcut.Save

結果

使用関数

解説

デスクトップにChromeのショートカットを作成

デスクトップにGoogle Chromeでhttps://google.co.jpをシークレットモードで起動するショートカットを作成します。

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM path = Shell.NameSpace(ssfDesktop).Self.Path

DIM WshShell = CREATEOLEOBJ("WScript.Shell")
DIM WshShortcut = WshShell.CreateShortcut(path + "\cmd.lnk")

WITH WshShortcut
	.IconLocation = "C:\Windows\system32\imageres.dll, 11"
	.TargetPath = "C:\WINDOWS\system32\cmd.exe"
	.WindowStyle = 3
	.WorkingDirectory = "%LOCALAPPDATA%"
	.Save
ENDWITH

結果

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(3,4,5): COMオブジェクトを生成します。
Shell.NameSpace メソッド(7,21): 指定されたフォルダのFolder2 オブジェクトを作成して返します。
Folder2.Self プロパティ (Shell)(8): Folder2オブジェクト自身を表すFolderオブジェクトを返します。

WshShell.CreateShortcut メソッド(9): ショートカットまたはURLショートカットへのオブジェクト参照を作成します。
WshShortcut オブジェクト(9): ショートカットの作成、読み込み、および編集に使用されます。WshShortcutオブジェクトは、ショートカットのプロパティを設定および取得するために使用できるプロパティを提供します。WshShortcutオブジェクトは、WshShellオブジェクトのCreateShortcutメソッドを使用して作成されます。
WITH文(11,26)
: WshShortcutオブジェクトのDescription属性を取得または設定します。
: ショートカットに対して割り当てられたホットキーのキーコードを表します。
: ショートカットが参照するアイコンのファイルパスとインデックスを取得または設定するために使用されます。
: ショートカットが指し示すファイルまたはプログラムのパスを取得または設定するために使用されます。ショートカットが指し示すファイルまたはプログラムは、このプロパティによって取得されたパスで表されます。
: 作成されたショートカットを実行したときに表示されるウィンドウの大きさを取得または設定します。
: ショートカットオブジェクトを保存します。
FSO.GetParentFolderName メソッド(21): 指定したパスの最後のコンポーネントの親フォルダ名を返します。
Folder.ParseName メソッド (Shell)(22): 指定されたアイテムのFolderItem オブジェクトを作成して返します。
FSO.GetFileName メソッド(22): 指定したパスの最後のコンポーネントのファイル名またはフォルダ名を返します。
FolderItem オブジェクト(22): シェルフォルダ内のアイテムを表します。
FolderItem.GetLink プロパティ (Shell)(23): 項目がショートカットの場合は、ShellLinkObject オブジェクトを格納します。
ShellLinkObject オブジェクト(23): ウィンドウシェルによって作成されたショートカットの情報を表します。
: リンクの引数を格納します。
JOIN関数 (スクリプト関数)(27): 配列の中身を区切り文字で結合し、文字列として返します。
: すべての変更をリンクに保存します。

解説

1行目
UWSC
```
CONST ssfDesktop = 0
```
CONST ssfDesktop = 0
ssfDesktopに0を代入。
3行目
UWSC
```
DIM Shell = CREATEOLEOBJ("Shell.Application")
```
DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell オブジェクトを生成しShellに代入します。
4行目
UWSC
```
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
```
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
FileSystemObject オブジェクトを生成しFSOに代入します。
5行目
UWSC
```
DIM WshShell = CREATEOLEOBJ("WScript.Shell")
```
DIM WshShell = CREATEOLEOBJ("WScript.Shell")
WshShell オブジェクトを生成しWshShellに代入します。
7行目
UWSC
```
DIM Folder2 = Shell.NameSpace(ssfDesktop)
```
DIM Folder2 = Shell.NameSpace(ssfDesktop)
デスクトップのFolder2 オブジェクトを取得し、Folder2に代入。
8行目
UWSC
```
DIM path = Folder2.Self.Path + "\Chrome.lnk"
```
DIM path = Folder2.Self.Path + "\Chrome.lnk"
デスクトップ\Chrome.lnkのパスをpathに代入。
9行目
UWSC
```
DIM WshShortcut = WshShell.CreateShortcut(path)
```
DIM WshShortcut = WshShell.CreateShortcut(path)
pathが示すパスにショートカットリンクを生成します。
11,19行目
UWSC
```
WITH WshShortcut
	…
ENDWITH
```
WITH WshShortcut … ENDWITH
12行目
UWSC
```
	DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
```
DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Google ChromeがあるパスをChromePathに代入。
13行目
UWSC
```
	.Description = "Chromeをシークレットモードで起動します。"
```
.Description = "Chromeをシークレットモードで起動します。"
ショートカットが指し示すプログラムにChromePathのパスを設定。
14行目
UWSC
```
	.Hotkey = "Ctrl+Shift+C"
```
.Hotkey = "Ctrl+Shift+C"
ChromePathのインデックス番号が7のアイコンを指定。
15行目
UWSC
```
	.IconLocation = chromePath + ",7"
```
.IconLocation = chromePath + ",7"
ショートカットを実行したときに表示されるウィンドウの大きさを[最大化]に設定。
16行目
UWSC
```
	.TargetPath = chromePath
```
.TargetPath = chromePath
WshShortcut オブジェクトに加えた変更を保存します。
17行目
UWSC
```
	.WindowStyle = 3
```
.WindowStyle = 3
18行目
UWSC
```
	.Save
```
.Save
21行目
UWSC
```
Folder = Shell.NameSpace(FSO.GetParentFolderName(path))
```
Folder = Shell.NameSpace(FSO.GetParentFolderName(path))
pathの親フォルダ名のFolder オブジェクトを取得し、Folderに代入します。
22行目
UWSC
```
DIM FolderItem = Folder.ParseName(FSO.GetFileName(path))
```
DIM FolderItem = Folder.ParseName(FSO.GetFileName(path))
23行目
UWSC
```
DIM ShellLinkObject = FolderItem.Getlink()
```
DIM ShellLinkObject = FolderItem.Getlink()
24行目
UWSC
```
DIM Args[] = "--incognito", "https://google.co.jp"
```
DIM Args[] = "--incognito", "https://google.co.jp"
リンクに渡す引数を格納する配列。"--incognito"はシークレットモードで起動。"https://google.co.jp"は開くURL。
26,29行目
UWSC
```
WITH ShellLinkObject
	…
ENDWITH
```
WITH ShellLinkObject … ENDWITH
27行目
UWSC
```
	.Arguments = JOIN(Args)
```
.Arguments = JOIN(Args)
Args配列を、半角スペースで結合した文字列をリンク先の引数に指定。
28行目
UWSC
```
	.Save
```
.Save
ShellLinkObject オブジェクトに加えた変更を保存します。

この記事は役に立ちましたか？

はい

いいえ

ご協力ありがとうございます。

WshShell.CreateShortcutクリエイトショートカットメソッド

プログラム実行例

メモ帳を起動するショートカットファイルを作成

コマンドプロンプトのショートカットを生成

デスクトップにChromeのショートカットを作成

この記事は役に立ちましたか？

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援

WshShell.CreateShortcutクリエイトショートカット メソッド

プログラム実行例

メモ帳を起動するショートカットファイルを作成

コマンドプロンプトのショートカットを生成

デスクトップにChromeのショートカットを作成

この記事は役に立ちましたか？

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援

WshShell.CreateShortcutクリエイトショートカットメソッド