ショートカットの作成
VisualBasic6用
ショートカットの作成
' コマンドボタン(Command1) を配置して下ださい。 ' 実行モジュール(exe)を作成後、exeを実行してください。 ' ボタンを押すと、自分自身のショートカットをデスクトップに作成します。 Option Explicit Private Sub Command1_Click() Dim objWS As Object Dim objSC As Object Dim strDeskTop As String Set objWS = CreateObject("WScript.Shell") strDeskTop = objWS.SpecialFolders("Desktop") Set objSC = objWS.CreateShortcut( _ strDeskTop & "\" & App.EXEName & ".lnk") objSC.TargetPath = App.Path objSC.Save Set objSC = Nothing Set objWS = Nothing End Sub