用VB(VBS)修改桌面快捷方式图标?

2025-03-04 06:30:28
推荐回答(1个)
回答1:

'vbs

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\千千静听.lnk")
oShellLink.IconLocation = "mspaint.exe, 0"
oShellLink.Save