GetLink | UWSC辞典

Contents

1 FolderItem オブジェクトを返すメソッド・プロパティ
2 プログラム実行例
- 2.1 デスクトップにChromeのショートカットを作成
3 この記事は役に立ちましたか？

ShellLinkObject オブジェクトを取得します。

構文

ShellLinkObject = FolderItem.GetLink

引数

戻り値: ShellLinkObject オブジェクト

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

Folder.ParseName メソッド: 指定されたアイテムのFolderItem オブジェクトを作成して返します。

FolderItems.Item メソッド: コレクション内の指定されたアイテムのFolderItem オブジェクトを取得します。

Folder2.Self プロパティ: Folder2オブジェクト自身を表すFolderオブジェクトを返します。

プログラム実行例

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

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

結果

使用関数

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

WshShell.CreateShortcut メソッド(9): ショートカットまたはURLショートカットへのオブジェクト参照を作成します。
WshShortcut オブジェクト(9): ショートカットの作成、読み込み、および編集に使用されます。WshShortcutオブジェクトは、ショートカットのプロパティを設定および取得するために使用できるプロパティを提供します。WshShortcutオブジェクトは、WshShellオブジェクトのCreateShortcutメソッドを使用して作成されます。
WITH文(11,26)
: WshShortcutオブジェクトのDescription属性を取得または設定します。
: ショートカットに対して割り当てられたホットキーのキーコードを表します。
: ショートカットが参照するアイコンのファイルパスとインデックスを取得または設定するために使用されます。
: ショートカットが指し示すファイルまたはプログラムのパスを取得または設定するために使用されます。ショートカットが指し示すファイルまたはプログラムは、このプロパティによって取得されたパスで表されます。
: 作成されたショートカットを実行したときに表示されるウィンドウの大きさを取得または設定します。
: ショートカットオブジェクトを保存します。
FSO.GetParentFolderName メソッド(21): 指定したパスの最後のコンポーネントの親フォルダ名を返します。
Folder.ParseName メソッド(22): 指定されたアイテムのFolderItem オブジェクトを作成して返します。
FSO.GetFileName メソッド(22): 指定したパスの最後のコンポーネントのファイル名またはフォルダ名を返します。
FolderItem オブジェクト(22): シェルフォルダ内のアイテムを表します。
FolderItem.GetLink プロパティ(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 オブジェクトに加えた変更を保存します。

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

はい

いいえ

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

FolderItem.GetLinkゲットリンクプロパティ

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

プログラム実行例

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

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

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援

FolderItem.GetLinkゲットリンク プロパティ

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

プログラム実行例

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

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

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援

FolderItem.GetLinkゲットリンクプロパティ