Windows スクリプト ホストを使用してデスクトップ ショートカットを作成する方法

  • [アーティクル]

この記事では、Visual FoxPro 内から Microsoft Windows スクリプト ホスト (WSH) を使用してデスクトップ ショートカットを作成する方法について説明します。

適用対象: Windows 10 - すべてのエディション、Windows Server 2012 R2
元の KB 番号: 244677

概要

WSH は、Windows 95 または Windows NT 4.0 上の基本オペレーティング システム内で Microsoft Visual Basic Scripting Edition と JScript をネイティブに実行できるツールです。 また、Windows スクリプト ホスト オブジェクト モデルを使用していくつかのタスクを簡単に実行できる、いくつかの COM オートメーション メソッドも含まれています。 Microsoft Windows スクリプト ホストは、Windows 98、Windows 2000、およびそれ以降のバージョンの Windows オペレーティング システムに統合されています。 Windows NT 4.0 Option Pack をインストールすることで、Windows NT 4.0 で使用できます。 このツールをダウンロードするには、 スクリプトに関するページを参照してください。

WSH を使用してデスクトップ ショートカットを作成する例

このプログラムでは、Windows スクリプト ホストを使用して Windows デスクトップにショートカットを作成する方法を示します。 この例を実行するには、コンピューターに Windows スクリプト ホストがインストールされている必要があります。 これらの例のいずれかを実行するには、次のコードを新しいプログラム ファイルにコピーして実行します。

例 1

WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")
oMyShortcut.WindowStyle = 3 &&Maximized 7=Minimized 4=Normal
oMyShortcut.IconLocation = "C:\myicon.ico"
OMyShortcut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.Hotkey = "ALT+CTRL+F"
oMyShortCut.Save

例 2: コマンド ライン引数を追加する

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortCut= WshShell.CreateShortcut(strDesktop+"\Foxtest.lnk")
oMyShortCut.WindowStyle = 7 &&Minimized 0=Maximized 4=Normal
oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico"
oMyShortCut.TargetPath = "c:\Program Files\Microsoft Visual Studio\VFP98\vfp6.exe"
oMyShortCut.Arguments = '-c'+'"'+Home()+'config.fpw'+'"'
oMyShortCut.WorkingDirectory = "c:\"
oMyShortCut.Save

注:

使用している Visual FoxPro のバージョンによっては、例 2 の Visual FoxPro 実行可能ファイルの名前とパスを変更する必要がある場合があります。

例 3: デスクトップに URL ショートカットを追加する

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

注:

ショートカットを作成するには、すべてのメソッドに対して有効なパラメーターを渡す必要があります。 いずれかのパラメーターが正しくない場合、エラーは表示されません。

関連情報

  • ホワイト ペーパー: Windows スクリプト ホスト: スクリプト言語用のユニバーサル スクリプト ホスト
  • テクニカル ペーパー: Windows スクリプト ホスト プログラマのリファレンス