可以替换指定目录及其子目录下所有的快捷方式，自己指定存放快捷方式的路径、要被替换的字符串和希望替换成的字符串，然后双击即可运行。
下面为代码，不很复杂，：)
复制代码 代码如下:
On Error Resume Next
'替换某文件夹及其子文件夹下的所有快捷方式的指向路径
strFolderPath="D:\Program Files\TrueLaunchBar\Shortcut\File\&;Style" '快捷方式的路径
strToReplace="\SOFTWARE\" '被替环的字符串
strReplace="\[Software]\" '替换成的字符串
Set wshShell = CreateObject("Shell.Application")
Set wshFSO = CreateObject("Scripting.FileSystemObject")
AlterSubFolders wshFSO.GetFolder(strFolderPath)
Sub AlterSubFolders(Folder)
Set npFolder = wshShell.Namespace (Folder.Path)
Set allFiles=Folder.Files
For Each lnkFile In allFiles
'Wscript.Echo lnkFile.Name
If InStrRev(UCase(lnkFile.Name), ".LNK") > 0 Then '扩展名是否快捷方式
Set lnkItem = npFolder.ParseName(lnkFile.Name)
Set lnkItemLink = lnkItem.GetLink
'Wscript.Echo """"lnkItemLink.Path""""
lnkItemLink.Path = Replace("""" lnkItemLink.Path """",strToReplace,strReplace)
lnkItemLink.WorkingDirectory = Replace("""" lnkItemLink.WorkingDirectory """",strToReplace,strReplace)
lnkItemLink.Save()
End If
Next
For Each Subfolder in Folder.SubFolders
'Wscript.Echo "Folder" Subfolder.Path
Set npFolder = wshShell.Namespace (Subfolder.Path)
Set objFolder = wshFSO.GetFolder (Subfolder.Path)
Set allFiles = objFolder.Files
For Each lnkFile in allFiles
If InStrRev(UCase(lnkFile.Name), ".LNK") > 0 Then '扩展名是否快捷方式
Set lnkItem = npFolder.ParseName(lnkFile.Name)
Set lnkItemLink = lnkItem.GetLink
'Wscript.Echo """"lnkItemLink.Path""""
lnkItemLink.Path = Replace("""" lnkItemLink.Path """",strToReplace,strReplace)
lnkItemLink.WorkingDirectory = Replace("""" lnkItemLink.WorkingDirectory """",strToReplace,strReplace)
lnkItemLink.Save()
End If
Next
AlterSubFolders Subfolder
Next
End Sub
您可能感兴趣的文章:- 通过vbs修改目录名称与快捷方式名称的实现代码
- 右键发送(sendto)，创建快捷方式到自定义的位置 的vbs
- 批处理BAT创建快捷方式
- bat脚本实例实现只允许运行一个实例(安装程序、创建快捷方式脚本)
- 用bat实现打开快捷方式指向的目录
- 批处理cmd之桌面快捷方式创建工具
- 使用VBS创建快捷方式的代码
