本篇內(nèi)容主要講解“有哪些批量替換快捷方式目的路徑的VBS腳本”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實用性強。下面就讓小編來帶大家學習“有哪些批量替換快捷方式目的路徑的VBS腳本”吧!

龍城ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！

可以替換指定目錄及其子目錄下所有的快捷方式，自己指定存放快捷方式的路徑、要被替換的字符串和希望替換成的字符串，然后雙擊即可運行。

復制代碼 代碼如下:

On Error Resume Next 
'替換某文件夾及其子文件夾下的所有快捷方式的指向路徑 

strFolderPath="D:\Program Files\TrueLaunchBar\Shortcut\File\ Style" '快捷方式的路徑 
strToReplace="\SOFTWARE\" '被替環(huán)的字符串 
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腳本”有了更深的了解，不妨來實際操作一番吧！這里是創(chuàng)新互聯(lián)建站，更多相關內(nèi)容可以進入相關頻道進行查詢，關注我們，繼續(xù)學習！

分享文章：有哪些批量替換快捷方式目的路徑的VBS腳本-創(chuàng)新互聯(lián)
文章URL：http://weahome.cn/article/cchisp.html