disk = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop)


いつもお世話になっています。
ボタン１をクリックして、ディスクトップに　図書.exe　のショートカットを作りたいのですがわかりません。

           実行ファイルは、 "d:\図書.exe"　です。

VB6.0では,下記のようにして実行できたのですがｖｂ２００８ではエラーになります。

         set objwshshell = New IWshRuntimeLibrary.IWshShell_Class
         set objwshortcut = objwshshell.CreateShortcut(disk & "\vb9図書.exeのショートカット.lnk")
            With objwshortcut

                .TargetPath = strtagetfilename
                .Save()
            End With
ご指導よろしくお願いします。

質問される前にこの掲示板のワード検索で過去のログ等検索されましたか？
又、どこで、どのようなエラーがでて、どの部分が解らないかを書かないと。

'プロジェクト→参照の追加→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

花ちゃん 様
ご丁寧にプログラムまで作成していただきありがとうございました。
希望どうりのショートカット作成できました。
今後は、不具合の状況も記載いたします。よろしくお願いします。