サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/26 16:57
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[他のアプリ関係][応用コード][] *
* キーワード：ショートカット,*.lnk,デスクトップ,送る,WshShell, *
***********************************************************************************
タイトル ： ショートカットの作成について
記 事 No ： 8230
投 稿 日 ： 2008/09/27(Sat) 11:11
元質問者 ： monmon
ボタン１をクリックして、ディスクトップに 図書.exe のショートカットを
作りたいのですがわかりません。
-----------------------------------------------------------------------------------
記事No ： 8231
投稿日 ： 2008/09/27(Sat) 12:37
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
'プロジェクト→参照の追加→COM→Windows Script Host Object Model を参照設定して下さい。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wsh As New IWshRuntimeLibrary.WshShell
Dim disk As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop)
Dim sc As IWshRuntimeLibrary.IWshShortcut
sc = CType(wsh.CreateShortcut(disk & "\vb9図書.exeのショートカット.lnk"), IWshRuntimeLibrary.IWshShortcut)
sc.TargetPath = "d:\図書.exe"
sc.Save()
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(sc)
sc = Nothing
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(wsh)
wsh = Nothing
End Sub
 |
