VBScript设置IconLocation时，含逗号路径如何避免被截断？

算力阿峰

2026-8-19

处理含逗号的快捷方式图标路径问题

核心原理

Windows快捷方式的IconLocation属性遵循文件路径,图标索引的解析规则，当路径本身包含逗号时，必须用双引号包裹路径，系统才会将引号内的内容完整识别为文件路径，而非把路径里的逗号当作路径与索引的分隔符。

具体处理方案

设置图标路径时

给含逗号的路径加上双引号，再按需拼接图标索引（无特殊索引需求时，可写,0或省略索引部分）：

原路径：C:\Programs\My,App\launch.exe
设置IconLocation时应写为："C:\Programs\My,App\launch.exe",0

读取图标路径时

需要先判断字符串是否以双引号开头，分两种情况处理：

如果是双引号开头：提取第一个双引号到第二个双引号之间的内容作为完整路径，双引号后的逗号与数字为图标索引
如果不是双引号开头：再按普通逗号分隔逻辑拆分路径和索引

代码示例（以VBScript为例）

Set shell = CreateObject("WScript.Shell")
' 创建/修改快捷方式
Set shortcut = shell.CreateShortcut("demo.lnk")
' 给含逗号的路径加双引号转义
shortcut.IconLocation = """C:\Programs\My,App\launch.exe"",0"
shortcut.Save

' 读取快捷方式的图标信息
Set shortcut = shell.CreateShortcut("demo.lnk")
iconLoc = shortcut.IconLocation

If Left(iconLoc, 1) = """" Then
    ' 提取引号内的完整路径
    pathEndPos = InStr(2, iconLoc, """")
    iconPath = Mid(iconLoc, 2, pathEndPos - 2)
    ' 提取图标索引
    indexStr = Mid(iconLoc, pathEndPos + 1)
    iconIndex = 0
    If indexStr <> "" Then
        iconIndex = CInt(Mid(indexStr, 2))
    End If
Else
    ' 普通路径的拆分逻辑
    parts = Split(iconLoc, ",")
    iconPath = parts(0)
    iconIndex = IIf(UBound(parts) > 0, CInt(parts(1)), 0)
End If

WScript.Echo "图标路径：" & iconPath
WScript.Echo "图标索引：" & iconIndex