C＃ 仲良し Delphi Round 2

ショートカットを作る部分もVB.NETで作成。
やっぱりC#ではめんどくさくてやってられん。

Imports System
Imports System.IO
Imports System.Reflection

Class Test

　　Public Shared Sub Main()
　　　　Dim shell = Activator.CreateInstance(Type.GetTypeFromProgID("WScript.Shell"))

　　　　' ショートカットの存在チェック
　　　　Dim link_name As String = shell.SpecialFolders("SendTo") + "\リンク先を探す.lnk"
　　　　If File.Exists(link_name) Then
　　　　　　Return
　　　　End If

　　　　' ショートカットの作成
　　　　Dim link = shell.CreateShortcut(link_name)
　　　　link.TargetPath = Path.GetFullPath([Assembly].GetExecutingAssembly().Location)
　　　　link.Save()
　　End Sub

End Class