创建Windows开机自启快捷方式报错：找不到IWshShell3的CreateShortcut成员

问题分析 #

你遇到的Public member 'CreateShortcut' on type 'IWshShell3' not found错误，核心原因是混用了后期绑定与早期绑定，同时路径分隔符不符合Windows规范，导致接口调用不匹配。

修复步骤 #

1. 修正路径分隔符 #

Windows系统路径使用反斜杠\作为分隔符，将你的路径代码修改为：

Dim ShortCutPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\ScreenRot.lnk"

2. 统一使用早期绑定（已引入IWshRuntimeLibrary） #

不要混用CreateObject("WScript.Shell")的后期绑定方式，直接使用早期绑定的WshShell类，修改你的CreateShortCut方法：

Imports IWshRuntimeLibrary

' ...

Shared Sub CreateShortCut(File As String, ShortCutPath As String)
    Try
        ' 使用早期绑定的WshShell实例
        Dim oShell As New WshShell()
        ' 显式转换为IWshShortcut接口
        Dim oLink As IWshShortcut = DirectCast(oShell.CreateShortcut(ShortCutPath), IWshShortcut)
        
        oLink.IconLocation = File
        oLink.TargetPath = File
        oLink.Arguments = ""
        oLink.WindowStyle = 1
        oLink.Save()
    Catch ex As Exception
        ' 添加异常提示方便调试（可选）
        MessageBox.Show($"创建快捷方式失败：{ex.Message}")
    End Try
End Sub

3. 确认项目引用正确 #

确保你的项目已添加COM引用：

• 右键项目 → 添加 → 引用 → 切换到COM标签页
• 找到并勾选Windows Script Host Object Model → 点击确定

错误原因说明 #

• 你同时使用了Imports IWshRuntimeLibrary（早期绑定）和CreateObject("WScript.Shell")（后期绑定），两种方式的对象接口不兼容：CreateObject返回的IWshShell3类型并没有公开CreateShortcut成员，而早期绑定的WshShell类实现的IWshShell接口才包含该方法。
• 路径中使用的斜杠/不符合Windows路径规范，可能导致快捷方式路径无效，间接触发异常。

内容的提问来源于stack exchange，提问作者Alex McCreath