中国DOS联盟

网上找到的改变快捷方式的目标路径，可更改后，图标也变了，请问如何解决？
Sub Doit(strlnk)
Dim oShlnk
Set oShlnk = Wsh.CreateShortcut(strlnk)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
old=oShLnk.IconLocation
oShLnk.IconLocation=old '添加后无效

oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath)
oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath)
oShLnk.Save
ji_2 = ji_2 + 1
End If
Set oShLnk=NoThing
End Sub


---------------------------------------------

oldpath = "这里填写原路径中将被替换的内容" newpath = "这里填写新路径中要使用的内容" Dim Wsh,fso Set Wsh = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Dim ji_1,ji_2,Folder ji_1 = 0 ji_2 = 0 Folder = Wsh.CurrentDirectory if Ask("将要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方，是否继续") then Dim f,fc,f1,ext Set f = fso.GetFolder(Folder) Set fc = f.Files For Each f1 in fc ext = LCase(fso.GetExtensionName(f1)) if ext = "lnk" then ji_1 = ji_1 + 1 call Doit(f1) end if Next end if Set WSH = Nothing msgbox "找到 "&ji_1&" 个快捷方式"&vbCrLf&"修改 "&ji_2&" 个快捷方式",64,"执行完毕!" WScript.quit Sub Doit(strlnk) Dim oShlnk Set oShlnk = Wsh.CreateShortcut(strlnk) If Instr(oShLnk.TargetPath,oldpath) > 0 Then oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath) oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath) oShLnk.Save ji_2 = ji_2 + 1 End If Set oShLnk=NoThing End Sub

既然知道问题。。。
为什么不调试下。。。

msgbox old
你就知道为什么了。


还有
b=a
a=b

这样做有意义麽?

多谢指教, 我试过 wscript.echo old 得到 ",0"

我的意思是用原来的快捷方式图标, 测试后无效, 所以才发帖请教的.

old=oShLnk.IconLocation
oShLnk.IconLocation=old

你没看明白麽？

如果只有图标的索引指向的目标程序的。

这个地方
你倒来倒去没发现没做什么事麽？
b=a
a=b


如果原来指向A.exe
图标,0
你改变为B.exe
图标,0没有变。。。

显示的图标由目标决定。

如果是自定义的图标就会显示全路径
X:\XXX\XXX.EXE,2

你图标设置
oShLnk.IconLocation=oShLnk.TargetPath & oShLnk.IconLocation

但是为了通用你最好判断下。
oShLnk.IconLocation是不是只有图标索引，就是第一个字符是不是","
如果不是就不用变。

图标的索引指向规则不太熟悉

加上就可以了
if left(oShLnk.IconLocation,1)="," then oShLnk.IconLocation=oShLnk.TargetPath & oShLnk.IconLocation