将应用程序快捷方式复制到启动文件夹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