< VB6 実行時エラーのコールスタックを採取する小ネタ | MakeSureDirectoryPathExists を VB6 でシミュレートする >

January 21, 2005

WSH でショートカットを作成する

WSH でショートカットを作成する方法です。どこにでも転がっているものと同じですが、自分のために。 コマンドラインコピーツール のインストーラとして作成したものです。

// Install.js
// もろもろの設定です
var sExename = "SendClip.exe";
var sShortcutName = 'ファイルのパス名をクリップボードへ';
var sDescription = '送られたファイルのパス名をクリップボードにコピーします。';

// オブジェクトを生成します
var oFsoSys = WScript.CreateObject( 'Scripting.FileSystemObject' ); // ファイルシステムオブジェクト
var oTarget = oFsoSys.GetFile( sExename );                          // ショートカットのターゲット
var oShell = WScript.CreateObject( 'WScript.Shell' );               // ショートカットを作成する Shell オブジェクト

// ショートカットのパスを作成します
var sShortcutPath = oFsoSys.BuildPath( oShell.SpecialFolders( 'SendTo' ), sShortcutName + '.lnk' );

// 既に存在すれば削除します
if ( oFsoSys.FileExists( sShortcutPath ) ) {
    oFsoSys.DeleteFile( sShortcutPath );
}

// ショートカットを作ります
var oShortcut = oShell.CreateShortcut( sShortcutPath );
oShortcut.Description = sDescription
oShortcut.TargetPath = oTarget.Path;
oShortcut.Save();

トラックバック

このエントリーにトラックバック:
http://frog.raindrop.jp/cgi-bin/mt/mt-tb.cgi/792

コメント

コメントする

※ コメントスパム対策のため、コメント本文はおはよう、こんにちわ、こんばんわのいずれかより始めるようにしてください。

name:
email:

※ 必要ですが、表示しません。

url:
情報を保存する ?