创建链接后如何更改链接图标？

Question

我创建了一个脚本，用于检查用户桌面上是否存在链接，如果找不到，则会创建它。 但后来我希望该链接更改图标，我不知道该怎么做。我尝试使用我创建的objDesktop，但它似乎是一种不同类型的对象，因此我无法使用ParseName或GetLink来对付它。

以下代码示例：

Set wShell = CreateObject("Wscript.Shell")
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set objDesktop = objFso.GetFolder(wShell.SpecialFolders("Desktop"))

linkName = "\Notepad.lnk"
fullLinkPath = objDesktop & linkName

If (objFso.FileExists(fullLinkPath)) = False Then
    Set shortcut = wShell.CreateShortcut(fullLinkPath)
    shortcut.targetpath = "c:\Windows\notepad.exe"
    shortcut.Save
End If

'from here, I want that freshly created link to have its icon replaced with
'another ico file that will be provided.

我希望尽可能保持代码简单和最小化，所以如果我的方法到现在为止不会让我得到一致的结果，请给我一个更好的代码示例。

Answer 1

找到秘密：不使用if并直接调用.CreateShortcut。 “从MSDN上的”CreateShortcut Method“页面创建新快捷方式，或打开现有快捷方式。

因此，似乎没有理由检查是否存在快捷方式，因为它不会创建副本。