可以替换指定目录及其子目录下所有的快捷方式，自己指定存放快捷方式的路径、要被替换的字符串和希望替换成的字符串，然后双击即可运行。
下面为代码，不很复杂，：)
复制代码 代码如下:OnErrorResumeNext
'替换某文件夹及其子文件夹下的所有快捷方式的指向路径
strFolderPath="D:ProgramFilesTrueLaunchBarShortcutFileStyle"'快捷方式的路径
strToReplace="SOFTWARE"'被替环的字符串
strReplace="[Software]"'替换成的字符串
SetwshShell=CreateObject("Shell.Application")
SetwshFSO=CreateObject("Scripting.FileSystemObject")
AlterSubFolderswshFSO.GetFolder(strFolderPath)
SubAlterSubFolders(Folder)
SetnpFolder=wshShell.Namespace(Folder.Path)
SetallFiles=Folder.Files
ForEachlnkFileInallFiles
'Wscript.EcholnkFile.Name
IfInStrRev(UCase(lnkFile.Name),".LNK")<>0Then'扩展名是否快捷方式
SetlnkItem=npFolder.ParseName(lnkFile.Name)
SetlnkItemLink=lnkItem.GetLink
'Wscript.Echo""""&lnkItemLink.Path&""""
lnkItemLink.Path=Replace(""""&lnkItemLink.Path&"""",strToReplace,strReplace)
lnkItemLink.WorkingDirectory=Replace(""""&lnkItemLink.WorkingDirectory&"""",strToReplace,strReplace)
lnkItemLink.Save()
EndIf
Next
ForEachSubfolderinFolder.SubFolders
'Wscript.Echo"Folder"&Subfolder.Path
SetnpFolder=wshShell.Namespace(Subfolder.Path)
SetobjFolder=wshFSO.GetFolder(Subfolder.Path)
SetallFiles=objFolder.Files
ForEachlnkFileinallFiles
IfInStrRev(UCase(lnkFile.Name),".LNK")<>0Then'扩展名是否快捷方式
SetlnkItem=npFolder.ParseName(lnkFile.Name)
SetlnkItemLink=lnkItem.GetLink
'Wscript.Echo""""&lnkItemLink.Path&""""
lnkItemLink.Path=Replace(""""&lnkItemLink.Path&"""",strToReplace,strReplace)
lnkItemLink.WorkingDirectory=Replace(""""&lnkItemLink.WorkingDirectory&"""",strToReplace,strReplace)
lnkItemLink.Save()
EndIf
Next
AlterSubFoldersSubfolder
Next
EndSub
【批量替换快捷方式目的路径的VBS脚本】相关文章：
★ ntiIframe.vbs用于批量清除被添加到文件中的恶意代码