vb 如何用代码修改快捷方式的链接对像

来源：百度知道 编辑：UC知道 时间：2024/06/17 00:39:41
如.桌面上一文件1.lnk是链接c:\1.exe的,我想修改成c:\2.exe,请问用代码怎么实现.

'以下代码可以满足你的要求：

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