'以下代码可以满足你的要求：
Dim WshShell As Object, WScript As Object, oShellLink As Object
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '桌面路径
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\1.lnk") '打开快捷方式
oShellLink.TargetPath = "c:\2.exe" '修改文件路径
oShellLink.Save '保存快捷方式
Set WshShell = Nothing
Set oShellLink = Nothing
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024