デスクトップにメモ帳(NOTEPAD)のショートカットを作成する例です。 以下のソースをテキストファイルに記述し、任意のファイル名をつけ、拡張子を vbs にして保存してください。 そのファイルをダブルクリックすると、デスクトップにメモ帳のショートカットが作成されます。 Option Explicit Dim WSH,sc Set WSH=CreateObject("WScript.Shell") Set sc = WSH.CreateShortcut("C:\Documents and Settings\xxxx\デスクトップ\メモ帳.lnk") sc.TargetPath = "C:\WINDOWS\notepad.exe" sc.save Set sc = Nothing Set WSH = nothing 1行目:変数を明示的に宣言するよう強制する宣言です。 3行目:変数の宣言 5