Shell.GetLinkを取得します。

構文

1. ShellLinkObject = FolderItem.GetLink

引数

戻り値

Shell.GetLink

FolderItem オブジェクトを返すメソッド・プロパティ

Folder.ParseName メソッド

指定されたアイテムのFolderItem オブジェクトを作成して返します。

FolderItems.Item メソッド

コレクション内の指定されたアイテムのFolderItem オブジェクトを取得します。

Folder2.Self プロパティ

Folder2 オブジェクトのFolderItem オブジェクトを返します。

プログラム実行例

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

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

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM WshShell = CREATEOLEOBJ("WScript.Shell")

DIM Folder2 = Shell.NameSpace(ssfDesktop)
DIM path = Folder2.Self.Path + "\Chrome.lnk"
DIM WshShortcut = WshShell.CreateShortcut(path)

WITH WshShortcut
	DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
	.Description = "Chromeをシークレットモードで起動します。"
	.Hotkey = "Ctrl+Shift+C"
	.IconLocation = chromePath + ",7"
	.TargetPath = chromePath
	.WindowStyle = 3
	.Save
ENDWITH

Folder = Shell.NameSpace(FSO.GetParentFolderName(path))
DIM FolderItem = Folder.ParseName(FSO.GetFileName(path))
DIM ShellLinkObject = FolderItem.Getlink()
DIM Args[] = "--incognito", "https://google.co.jp"

WITH ShellLinkObject
	.Arguments = JOIN(Args)
	.Save
ENDWITH

結果

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(3,4,5)

Shell.NameSpace メソッド(7,21)

指定されたフォルダのFolder2 オブジェクトを作成して返します。

Folder2.Self プロパティ(8)

Folder2 オブジェクトのFolderItem オブジェクトを返します。

WshShell.CreateShortcut メソッド(9)

ショートカットまたはURLショートカットへのオブジェクト参照を作成します。

WshShortcut オブジェクト(9)

ショートカットの作成、読み込み、および編集に使用されます。WshShortcutオブジェクトは、ショートカットのプロパティを設定および取得するために使用できるプロパティを提供します。WshShortcutオブジェクトは、WshShellオブジェクトのCreateShortcutメソッドを使用して作成されます。

WITH文(11,26)

WshShortcutオブジェクトのDescription属性を取得または設定します。

ショートカットに対して割り当てられたホットキーのキーコードを表します。

WshShortcut.IconLocation プロパティ (WshShell)(15)

ショートカットが参照するアイコンのファイルパスとインデックスを取得または設定するために使用されます。

ショートカットが指し示すファイルまたはプログラムのパスを取得または設定するために使用されます。ショートカットが指し示すファイルまたはプログラムは、このプロパティによって取得されたパスで表されます。

作成されたショートカットを実行したときに表示されるウィンドウの大きさを取得または設定します。

ショートカットオブジェクトを保存します。

FSO.GetParentFolderName メソッド(21)

指定したパスの最後のコンポーネントの親フォルダ名を返します。

Folder.ParseName メソッド(22)

指定されたアイテムのFolderItem オブジェクトを作成して返します。

FSO.GetFileName メソッド(22)

指定したパスの最後のコンポーネントのファイル名またはフォルダ名を返します。

FolderItem オブジェクト(22)

シェルフォルダ内のアイテムを表します。

FolderItem.GetLink プロパティ(23)

項目がショートカットの場合は、Shell.GetLinkを格納します。

ウィンドウシェルによって作成されたショートカットの情報を表します。

リンクの引数を格納します。

JOIN関数 (スクリプト関数)(27)

すべての変更をリンクに保存します。

解説（自動生成）

1行目

UWSC

CONST ssfDesktop = 0

CopyCONST ssfDesktop = 0

定数ssfDesktopを定義し、0を割り当てます。

3行目

UWSC

DIM Shell = CREATEOLEOBJ("Shell.Application")

CopyDIM Shell = CREATEOLEOBJ("Shell.Application")

変数Shellを宣言し、Shell オブジェクトを代入します。

4行目

UWSC

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

CopyDIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

変数FSOを宣言し、FileSystemObject オブジェクトを代入します。

5行目

UWSC

DIM WshShell = CREATEOLEOBJ("WScript.Shell")

CopyDIM WshShell = CREATEOLEOBJ("WScript.Shell")

変数WshShellを宣言し、WshShell オブジェクトを代入します。

7行目

UWSC

DIM Folder2 = Shell.NameSpace(ssfDesktop)

CopyDIM Folder2 = Shell.NameSpace(ssfDesktop)

変数Folder2を宣言し、を表すFolder2 オブジェクトを代入します。

8行目

UWSC

DIM path = Folder2.Self.Path + "\Chrome.lnk"

CopyDIM path = Folder2.Self.Path + "\Chrome.lnk"

変数pathを宣言し、Folder2 オブジェクトが示すFolderItem オブジェクト.Path + "\Chrome.lnk"を代入します。

9行目

UWSC

DIM WshShortcut = WshShell.CreateShortcut(path)

CopyDIM WshShortcut = WshShell.CreateShortcut(path)

変数WshShortcutを宣言し、右辺の結果を代入します。

11、19行目

UWSC

WITH WshShortcut
	…
ENDWITH

CopyWITH WshShortcut … ENDWITH

12行目

UWSC

	DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

Copy DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

変数chromePathを宣言し、C:\Program Files (x86)\Google\Chrome\Application\chrome.exeを代入します。

13行目

UWSC

	.Description = "Chromeをシークレットモードで起動します。"

Copy .Description = "Chromeをシークレットモードで起動します。"

14行目

UWSC

	.Hotkey = "Ctrl+Shift+C"

Copy .Hotkey = "Ctrl+Shift+C"

15行目

UWSC

	.IconLocation = chromePath + ",7"

Copy .IconLocation = chromePath + ",7"

16行目

UWSC

	.TargetPath = chromePath

Copy .TargetPath = chromePath

17行目

UWSC

	.WindowStyle = 3

Copy .WindowStyle = 3

18行目

UWSC

	.Save

Copy .Save

21行目

UWSC

Folder = Shell.NameSpace(FSO.GetParentFolderName(path))

CopyFolder = Shell.NameSpace(FSO.GetParentFolderName(path))

22行目

UWSC

DIM FolderItem = Folder.ParseName(FSO.GetFileName(path))

CopyDIM FolderItem = Folder.ParseName(FSO.GetFileName(path))

変数FolderItemを宣言し、右辺の結果を代入します。

23行目

UWSC

DIM ShellLinkObject = FolderItem.Getlink()

CopyDIM ShellLinkObject = FolderItem.Getlink()

変数ShellLinkObjectを宣言し、右辺の結果を代入します。

24行目

UWSC

DIM Args[] = "--incognito", "https://google.co.jp"

CopyDIM Args[] = "--incognito", "https://google.co.jp"

変数Args[]を宣言し、右辺の結果を代入します。

26、29行目

UWSC

WITH ShellLinkObject
	…
ENDWITH

CopyWITH ShellLinkObject … ENDWITH

27行目

UWSC

	.Arguments = JOIN(Args)

Copy .Arguments = JOIN(Args)

28行目

UWSC

	.Save

Copy .Save