主题：请教：如何使用代码更改桌面快捷方式指向的文件名称？

Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String = "快捷方式全路径"
If Not PathLink.ToLower.EndsWith(".lnk") Then
    PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = "新的目标指向"
wshs.Save()
wshs = Nothing
wsh = Nothing