ショートカットの作成

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