Shell.GetLinkを取得します。

構文

1. ShellLinkObject = FolderItem.GetLink

引数

戻り値

Shell.GetLink

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

Folder.ParseName メソッド

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

FolderItems.Item メソッド

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

Folder2.Self プロパティ

Folder2オブジェクト自身を表すFolderオブジェクトを返します。

プログラム実行例

デスクトップに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オブジェクト自身を表す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)

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

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

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

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

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

解説

1. 1行目

   UWSC

   CONST ssfDesktop = 0

   CopyCONST ssfDesktop = 0

   ssfDesktopに0を代入。

2. 3行目

   UWSC

   DIM Shell = CREATEOLEOBJ("Shell.Application")

   CopyDIM Shell = CREATEOLEOBJ("Shell.Application")

   Shell オブジェクトを生成しShellに代入します。

3. 4行目

   UWSC

   DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

   CopyDIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

   FileSystemObject オブジェクトを生成しFSOに代入します。

4. 5行目

   UWSC

   DIM WshShell = CREATEOLEOBJ("WScript.Shell")

   CopyDIM WshShell = CREATEOLEOBJ("WScript.Shell")

   WshShell オブジェクトを生成しWshShellに代入します。

5. 7行目

   UWSC

   DIM Folder2 = Shell.NameSpace(ssfDesktop)

   CopyDIM Folder2 = Shell.NameSpace(ssfDesktop)

   デスクトップのFolder2 オブジェクトを取得し、Folder2に代入。

6. 8行目

   UWSC

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

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

   デスクトップ\Chrome.lnkのパスをpathに代入。

7. 9行目

   UWSC

   DIM WshShortcut = WshShell.CreateShortcut(path)

   CopyDIM WshShortcut = WshShell.CreateShortcut(path)

   pathが示すパスにショートカットリンクを生成します。

8. 11,19行目

   UWSC

   WITH WshShortcut
   	…
   ENDWITH

   CopyWITH WshShortcut … ENDWITH

9. 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"

   Google ChromeがあるパスをChromePathに代入。

10. 13行目

    UWSC

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

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

    ショートカットが指し示すプログラムにChromePathのパスを設定。

11. 14行目

    UWSC

    	.Hotkey = "Ctrl+Shift+C"

    Copy .Hotkey = "Ctrl+Shift+C"

    ChromePathのインデックス番号が7のアイコンを指定。

12. 15行目

    UWSC

    	.IconLocation = chromePath + ",7"

    Copy .IconLocation = chromePath + ",7"

    ショートカットを実行したときに表示されるウィンドウの大きさを[最大化]に設定。

13. 16行目

    UWSC

    	.TargetPath = chromePath

    Copy .TargetPath = chromePath

    WshShortcut オブジェクトに加えた変更を保存します。

14. 17行目

    UWSC

    	.WindowStyle = 3

    Copy .WindowStyle = 3

15. 18行目

    UWSC

    	.Save

    Copy .Save

16. 21行目

    UWSC

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

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

    pathの親フォルダ名のFolder オブジェクトを取得し、Folderに代入します。

17. 22行目

    UWSC

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

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

18. 23行目

    UWSC

    DIM ShellLinkObject = FolderItem.Getlink()

    CopyDIM ShellLinkObject = FolderItem.Getlink()

19. 24行目

    UWSC

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

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

    リンクに渡す引数を格納する配列。"--incognito"はシークレットモードで起動。"https://google.co.jp"は開くURL。

20. 26,29行目

    UWSC

    WITH ShellLinkObject
    	…
    ENDWITH

    CopyWITH ShellLinkObject … ENDWITH

21. 27行目

    UWSC

    	.Arguments = JOIN(Args)

    Copy .Arguments = JOIN(Args)

    Args配列を、半角スペースで結合した文字列をリンク先の引数に指定。

22. 28行目

    UWSC

    	.Save

    Copy .Save

    Shell.GetLinkに加えた変更を保存します。