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

例えば、グーグルへのリンクをデスクトップに作る場合



Option Explicit

'デスクトップのフォルダ名のレジストリキー
Const REG_DESKTOP = _
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop"

'GoogleのURL
Const URL = "http://google.com/"

Dim objWsh
Dim objShortcut

Set objWsh = WScript.CreateObject("WScript.Shell")

Set objShortcut = objWshShell.CreateShortcut(objWshShell.RegRead(REG_DESKTOP) & "\Google.lnk")

With objShortcut
'URLを指定
.TargetPath = URL
'インターネットエクスプローラのアイコンを指定
.IconLocation = "C:\WINDOWS\system32\url.dll"
'保存
.Save
End With

Set objShortcut = Nothing
Set objWsh = Nothing



デスクトップのフォルダのパスには、ユーザー名が含まれているため
レジストリからパスを読み込みました。


posted by VB.NET+MSDE+ActiveReports at 15:53 | Comment(0) | TrackBack(0) | WEB
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/43541879