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

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

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

復(fù)制代碼 代碼如下:

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 '擴(kuò)展名是否快捷方式 
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 '擴(kuò)展名是否快捷方式 
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腳本”有了更深的了解，不妨來實(shí)際操作一番吧！這里是創(chuàng)新互聯(lián)建站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！

當(dāng)前題目：有哪些批量替換快捷方式目的路徑的VBS腳本-創(chuàng)新互聯(lián)
轉(zhuǎn)載注明：http://aaarwkj.com/article38/cchisp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計、定制開發(fā)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站維護(hù)、虛擬主機(jī)、自適應(yīng)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)