修改文件图标

Question

我有一个VBScript可以切换代理ON和OFF。我想相应地更改文件图标，这样当代理打开时，文件图标是绿色勾选，当它关闭时，图标是红叉（意味着我可以看到代理是否在运行脚本之前是否处于活动状态。）

如何以编程方式更改图标？仅适用于该文件，而非所有VBScripts！

Answer 1

您无法更改特定文件的图标。但是，您可以将特定快捷方式的图标更改为文件。

Set sh = CreateObject("WScript.Shell")

lnkfile = sh.SpecialFolders("Desktop") & "\your.lnk"

Set lnk = sh.CreateShortcut(lnkfile)
If lnk.IconLocation = "C:\path\to\some.ico" Then
  lnk.IconLocation = "C:\path\to\.ico"
Else
  lnk.IconLocation = "C:\path\to\some.ico"
End If
lnk.Save

如果快捷方式位于“所有用户”桌面文件夹（C:\Users\Public\Desktop）中，则需要将"Desktop"替换为"AllUsersDesktop"。