批量替換快捷方式目的路徑的VBS腳本

2020-03-24 16:54:36

字體：大中小

供稿：網(wǎng)友

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

下面為代碼，不很復(fù)雜，：)

復(fù)制代碼代碼如下:On Error Resume Next
'替換某文件夾及其子文件夾下的所有快捷方式的指向路徑

strFolderPath="D:Program FilesTrueLaunchBarShortcutFile 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 Subhtml教程

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。

上一篇：VBS類構(gòu)造函數(shù)與Default關(guān)鍵字使用介紹

下一篇：VBS編程教程 (第5篇)