当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 批量替换快捷方式目的路径的VBS脚本

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

2017年12月12日  | 移动技术网IT编程  | 我要评论

水浒英雄亚洲首选288x,温舒网oaw5,我爱电脑技术论坛

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

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

复制代码 代码如下:
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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网