批量替换快捷方式目的路径的VBS脚本

可以替换指定目录及其子目录下所有的快捷方式，自己指定存放快捷方式的路径、要被替换的字符串和希望替换成的字符串，然后双击即可运行。

下面为代码，不很复杂，：)

复制代码 代码如下: 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创建快捷方式的代码

本文由 华域联盟 原创撰写：华域联盟 » 批量替换快捷方式目的路径的VBS脚本

转载请保留出处和原文链接：https://www.cnhackhy.com/14327.htm