gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 27 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章批量替换快捷方式目的路径的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脚本的文章就讲到这里了,如果你想了解更多关于批量替换快捷方式目的路径的VBS脚本的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com