將應用程序快捷方式複製到啓動文件夾VB

Question

將我的應用程序快捷方式複製到Windows啓動文件夾最簡單/最好的方法是什麼？

我想把一個複選框通知圖形用戶界面菜單，當用戶點擊它我想要應用程序複製到啓動文件夾的快捷方式，當未選中想刪除它。

感謝

Answer 1

嘗試這樣的事：

Option Explicit 
Dim LinkPath As String 

Private Sub Form_Load() 
    LinkPath = Environ("APPDATA") & _ 
       "\Microsoft\Windows\Start Menu\Programs\Startup\" & _ 
       App.exename & ".lnk" 
    Debug.Print LinkPath 
End Sub 

Private Sub CreateAppLinkInAutoStart() 
'Windows Script Host Object Model 
'IWshRuntimeLibrary 
'on Windows 32 bit (x86): 
'C:\Windows\System32\wshom.ocx 
'on Windows 64 bit (x64): 
'C:\Windows\SysWOW64\wshom.ocx 

    Dim shell As New WshShell 
    Dim link As WshShortcut 
    Set link = shell.CreateShortcut(LinkPath) 
    link.targetpath = App.Path & "\" & App.exename & ".exe" 
    link.WorkingDirectory = App.Path & "\" 
    Call link.Save 
End Sub 

Private Sub Check1_Click() 
    If Check1.Value = vbChecked Then 
     CreateAppLinkInAutoStart 
    Else 
     Kill LinkPath 
    End If 
End Sub